Miscellaneous tools written in Perl script