Nice work! I love the humour. Here's a bit of Rolling Stones:

use strict;
use warnings;

sub sympathy  { print "- Oh you poor thing.\n"; }
sub the_devil { print "- The heat down here is terrible.\n"; 666; }

sympathy for the_devil;
[download]