various Perl scripts