Useful Perl scripts