Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Tribute to Red Green

by grep (Monsignor)
on May 30, 2003 at 05:06 UTC ( [id://261767] : poem . print w/replies, xml ) Need Help??

package Women; sub AUTOLOAD { return you_handy(); } sub you_handsome { return 'found' } sub you_handy { return 'found' } "The Red Green Show";


grep
Mynd you, mønk bites Kan be pretti nasti...

Replies are listed 'Best First'.
Re: Tribute to Red Green
by kutsu (Priest) on May 31, 2003 at 04:07 UTC

    I have two, I like the second better:

    my $man = "yes"; print "I can change, I guess" if $man = "yes";

    my $tool = "duct tape"; my $job = "any"; if ($job = "any"){ use $tool; }

    This is my first poem, but I had to post for Red Green, I love that show


    "Pain is weakness leaving the body, I find myself in pain everyday" -me

      hi, I dont want to ruin the content of you poem, but shouldn't that be :
      print "I can change, I guess" if $man eq "yes";

      and:
      if ($job eq "any"){ use $tool; }

        Oops, I was tired when I posted that, so I guess I missed it


        "Pain is weakness leaving the body, I find myself in pain everyday" -me

      And the OO version :)
      #Bow your heads for the mens prayer $I->{m} = a man; but($I->can('change')) if ($I->have_to() && $I->guess());
Re: Tribute to Red Green
by kutsu (Priest) on Jun 08, 2003 at 01:24 UTC