I'm bored. Here's Perl.