#!/usr/bin/perl
my $eyes = "closed";
my $heart = "aching";
my $beloved = "gone";
no warnings;
my $love = ();
open MY,"mind";
foreach ($love) {
open MY,$eyes;
tell my $mind or open my $eyes;
}
do not $fear and do not die;
$i; die "because i love you";
do { $i; sleep($_) } while ( $awake );
warn "$me" if ($i == $wrong);
bind my $love, $dear and do not exit;
for (my $world = "dark") {};
for (my $eyes = "blind") {};
Extracted from the Perl Poetry page.










Trackbacks (0)
