Пример 33-4. Сценарий на языке Perl, встроенный в Bash-скрипт