Perl scripts that do useful things...