some Perl program