love poem for perl

[mr2]

#!/usr/bin/perl
# "love poem for perl" :)
$please = "say to me, i want to know";
$why    = "still i cannot understand how";
$to     = "script, to code and to debug";
$and    = "live w\/o being stuck in own poop?";

if ($I && $could{'only'} && get($SOME{'sleep'}){

  $my_project = $would_not_be + "so cheap";
} else {
     for ($YOU{'my_perl'};$I < $cannot_lie;) {
         @AND = <everything_i_want>;
         &is_to;
         die;
     }
}
exit;

sub is_to {
    print "\nBy Congo (c)\n";
};

Edited 2002-04-16 by mirod: added <code> tags