Perl program