Perl scripts I have written