Sample code for my YAPC::NA talk "Perl Out Of Order"