poem
darobin
<p>
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...
</p>
<p>
<code>
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;
</code>
</p>
<p>
-- darobin
</p>