Bad poetry, but fun to make anyway =)
 
-----------------

#!/usr/bin/perl
sub

i_say { please, return }

& i_say("I won't go");
 & i_say("I'll be true");

seek me, happiness, love;

if ( not me and you ) { kill me or die }

for (If ne 1; brings; love > mine) {
  split myheart, mychest;

  die die die

  and all is peaceful in sleep of death
}
[download]