Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

scalar ($lonliness)

by Reverend Phil (Pilgrim)
on May 10, 2001 at 20:14 UTC ( [id://79454]=poem: print w/replies, xml ) Need Help??

my $lonliness;
scalar($lonliness);
local $pub;
my $comfort = &drown($lonliness, "Beer");
wantarray;
seek WOMAN, 4, $comfort;
select WOMAN;
wait;
<WOMAN>;
shift @feet;
my $line;
wantarray ? sin : die;
wait;
shift @feet;
close WOMAN;

scalar($lonliness);
&drown($lonliness, "Beer");
sleep;



This is my first time. Be gentle. *grin*

-=rev=-

Replies are listed 'Best First'.
Re: scalar
by tachyon (Chancellor) on May 16, 2001 at 04:54 UTC 
    $_ = "
oooooooIoooo olooiookooeo 
ootohoooioso oosoooaoodoo 
otooooaoloeo o;ooooo-oo)o";
You, do(not require warnings);
s.o..go;$now and exit, 
do(not die) unless $beer == warm; 
print;

    [download]
    tachyon
[reply]
[d/l]
Re: scalar
by Anonymous Monk on May 21, 2001 at 15:20 UTC
    Great Poem.
[reply]
Re: scalar
by dpatrick (Scribe) on May 23, 2001 at 02:19 UTC
    That's fresh. I like it.
    dpatrick
[reply]

Back to Perl Poetry

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: poem [id://79454]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-04-18 19:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found