Poema Geek en Perl

Perl es un lenguaje de programación amado por los que lo usan y odiado por lo que no. Existe un buen debate al respecto, pero eso es harina de otro costal. A continuación un poema llamado «Open Heart» hecho en Perl:

#!/usr/bin/perl -w
open( HEART, ">for_me" );
for ( $this -valentines-day ; $you and $me ; $together++ ) {
    $you = "My special one";
    $me  = "Your darling";
}

%time = ( $you => $me, $together => "forever" );
while ( $you = push( @me, @away ) ) {
    foreach (@second) {
        die a_bit to my $death;
        goto hell;
    }

    pack $my_bags, @and_leave;

    package my_love;
    unless ( !$i_see_you ) {
        write YOU_SOON;
    }
}

reverse keys %time;
bless me;
for ( last ; kill $me ; ) {
    if ($you) {
        die;
    }
}