Just stuff I'm playing around with to learn Perl.