Some handy Perl scripts