some Perl script