Random Perl scripts