my Perl program