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