http://www.perlmonks.org?node_id=54262


in reply to my $gorgeous

#!/usr/bin/perl
my $votes = 0; today;
wait for (my $votes); tomorrow;
$y.our $poem, "made me smile"; -timallen

[download]

In Section Perl Poetry