Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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...

Comment on Tribute to Red Green
Download Code
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 taking refuge in the Monastery: (13)
As of 2015-07-30 12:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (271 votes), past polls