Misc. Perl code