Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

An old love poem

by darobin (Monk)
on Mar 27, 2001 at 22:10 UTC ( #67567=poem: print w/replies, xml ) Need Help??

This one is old and quite cheesy, but I just came accross it and it was never posted here. I hesitated some but then I figured that there weren't taht many cheesy love poems in Perl, so I might just as well thow it in. I guess a few of the lines are ok. It doesn't do anything...

my @nais; package Your::Love; seek mine, sweetly,softly; open me; tell me or simply smile; use less words; use Symbol; no strict love; study me and sin 27*times if tied $you[$me]; bless \$bliss and dump 'the rain' until dawn; read my $lips, my $heart, my $self; require me while /all is sleeping/; accept(kiss,tenderness); send(love,lust,love); listen(heartbeat, my $breath); sub terranean { $feelings = shift, unshift all,me,you, splice you,me and pop; last long while exists $endless{us}; select me; tell me, write me; rename me,yours; #in a fury of love redo if not dawn; while (join robyn,@nais) { pack us tight and push @ll, the dark away; } continue { reverse us; sort us; kill us; } next fork, and reset; unlink us; split /a while/, then, return to me; "I am all yours"; } sleep well, and wait for time;

-- darobin

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2023-02-06 02:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (33 votes). Check out past polls.

    Notices?