There are probably too many love poems in Perl already, but here is my feeble attempt at another one:

$you->said("Who needs tommorow?") 
while $we->have($tonight);
$I = shift @closer for @love;
[download]