A Perl Code