Perl scripts