Miscellaneous Perl scripts