I put these together when I was first learning Perl.