In my feeble attempt to stop boredom today, I've ported Phish's song Fee to Perl. Mind you, methinks I got lazy in some parts, but for a first try, I dont think its too bad.

while($in{banana_tree}{cool_shade}){
$on = $trail{rugged};
$toward = "balcony";
$child{century} = "20";
$Goliath = dried('up');
$weasel{name} = "Fee";
}

$another_place = "Far Away";
fade($beauty{Milly});
$beauty{Milly}{Singer_type} = "gospel";
push(@$beauty{Milly}{Face},"pox");
keep_pace_with($cane{bamboo});

$Fee{Buddhist}{type} = "prodigy";
$age > $age_of_maturity;
Set_him_free('someday');
Like_id_did(for => $floyd_the_chimpanzee);

oh('fee');
$youre->trying("live a life thats completely $free");
$youre->racing('the wind');
$youre->flirt('death');
have($cup{coffee}) && catch($your->breath);

if (($time == 1)&&($bar == "Peru")){
    introduce($fee,$milly);
    $fee->heart('jump_like_a_kangaroo');
    $fee->heart = $dutch_zoo = 'old', cage('beast');
    hop($heart); thump($heart); $heart{shoes} = "wooden";
}

@floyd = (jealous, alone);
$floyd = his_own($Milly);
$floyd{bones} = "Desperate Craving";
$floyd->say("Their love, I will not condone.";

$then->one('day'); on('ship to Quebec');
$floyd->find(lovers_trek($Milly, $Fee));
pick_up($bottle); break($bottle{neck});
slice($air); $Fee->hit("the deck");

oh('fee');
$youre->trying("live a life thats completely $free");
$you->want("stay with $Milly") unless ($Fee{dead});
but($you->bottle('upside your head'));

turn($Milly); $Milly->scream($Floyd);
$Milly->say("I bet You think you're pretty mean");
$Milly->size = $string_bean{small};
slam($Floyd, $nectarine);

fall(over => 'edge of the ship', $Floyd);
$Floyd{hang_by} = "Fingertip";
$Milly->say("$Floyd, I'll make you loose your grip");
$Milly->say("With this tiny piece of paper, I can make you slip.");

$Milly->took('paper'); $Milly->did_the_deed;
hit_water($Floyd, "Astonishing speed");
circle($sharks); feed($sharks);
$Milly->knew("Her weasel was finally free");

oh('fee');
$youre->trying("live a life thats completely $free");
$Floyd = dead("Nothing but a ripple");
cuz($Milly->Slice($Floyd{nipple});

oh('fee');
$youre->trying("live a life thats completely $free");
$youre->racing('the wind');
$youre->flirt('death');
have($cup{coffee}) && catch($your->breath);
[download]

_14k4 - perlmonks@poorheart.com (www.poorheart.com)