Random Perl scripts to do a variety of things