Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Have a Cigar

by JaK (Initiate)
on Sep 12, 2003 at 07:16 UTC ( #290946=poem: print w/replies, xml ) Need Help??

My first beauty perl poetry, I think... and u? :) Send me comments!
#!/usr/bin/perl #Have a cigar! ;) Dedicated to my friends. #by J. "JaK" Prendin, nidnerp@libero.it open (MyPacket,"ITakeACigar"); close(MyPacket); BEGIN(toSmoke); open (MyLighter); $fire=getc MyLighter; getc $moke; close(MyLighter); $life=$moke; study $life; END(toSmoke); goto work; work:

Janitored by ybiC: Balanced <code> tags around code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2021-12-05 02:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (31 votes). Check out past polls.

    Notices?