This is my first attempt. Sorry :-)

#!/usr/bin/perl 
she->controls(me);

each(night); 

while(i){
sleep;
} 
$i==dream(of(her)); 

do (i==love(her)); 
yes; 
do (i==tell(her)); 
yes; 
while (i==(do tell(her))){ 
  (she(laughs)); 
} 

my $embarrassment=="high"; 
my $confidence=="low"; 
dump(jon); 
break(heart); 

will (i==die "a lonely man"); 

eval(my $sanity); 
my $situation=="is not so bad"; 

foreach $beer("i","drink"){ 
  drowns(my $sorrows); 
} 

sleep;
[download]