Perl scripts for various tasks