Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Tribute to Red Green

by grep (Monsignor)
on May 30, 2003 at 05:06 UTC ( #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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://261767]
Approved by Mr_Person
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2016-08-31 08:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (427 votes). Check out past polls.