Trivial programs I'm writing to help me learn Perl