General Perl utility scripts