En Perl: