Perl пример