Little Perl Scripts Just For Fun