Now, i don't claim to be a WPERL DJ, so be kind. The song is "Son Of God" my They Might Be Giants.

#!/usr/bin/perl -c 


$i->built(lc("EMPIRE"),<CRAZY_GARBAGE>);
&exploit("working class")->$blood->();
$they =~ s/shyness//g;
$they->me("Your Highness");
$world->SCREAMS("Kiss Me Son Of God");

untie($people,$friendship) && 
  untie($people,$respect);
$people = "look me in the eye";

$i->laugh();
$i->{fortune} = 1;
($people == $i->tourtured ? 
$world->SCREAMS("Kiss Me Son Of God")
 : undef );


$i->resemble("jesus");
print $they;
$place[10000000] = "jesus";
$now = <<HERE;
    tell me
HERE
if (1) {
  $i->love($i) && $you->love($i);
}

# I've built a little empire
#    out of some crazy garbage
# called the blood of the expoited 
#    working class
# but they've overcome their shyness
# now they're calling my "Your Highness"
# and the world screams "Kiss me son of god"

# i destroyed the bond of friendship
# and respect between the only people left
# Who'd even look me in the eye

# Now i laugh and make a fortune
# off the same ones that i tourtured
# and the world screams "Kiss me son of god" 

# I look like Jesus, so they say
# But Mr. Jesus is very far away
# Now your the only one here
# who can tell me if it's true
# That you love me, and i love me
[download]

---

OH, a sarcasm detector, that’s really useful