Random Perl routines and scipts