Perl Poetry 2

perl_poetry2.pl

#!/usr/bin/perl

use v5.10;

my $sweetheart;
my $heart = $yours for $ever;
do { accept my $love, my $dear }, or kill $me;

bless \$me, my $Lord; join($us, $together) until eternity; 
heaven: our $home, wait for $us; 

my $soul, my $darling, say "I love you";
let's, $honey, splice(@together), not split $ever,  
                                   and goto heaven, $together;

#
# copied from http://thetaoishere.blogspot.com/2009/11/perl-poetry.html
#