http://www.perlmonks.org?node_id=43554

This silly poem was inspired by Chris Nandor's D'oh module.
#!/usr/local/bin/perl %wakeup and goto WORK; do { nothing }; { time for break; m mmm, Donuts } sleep (0); { my $lunch = sub { sandwiches }, (2 or 3); chomp, chomp } sleep (again); Zzzzzzz. alarm()??? : system 'meltdown!!'; use # use what? use what?! D'oh!!!! 3-2+1;0 ... BOOM