# Gives strict a whole new meaning, no?

use strict;
$too_often and $you_are;
if ($trying){
        $to{&say} = "I love you";
        while (you_punish($me,$instead)){
                @we_are = $my_brother, $and_i;
                for ($your_love) {suffering(@are_we)}
        }
}
$i_think{@about,$telling};
foreach $badthing (@you_do) {
        while ($you) {
                push(@me);
                hit($me);
        }
        while ($i){
                cry($so_do_you);
        }
}
unless ($you_stop && $love_me eq 'true'){
        warn "Mommy Dearest"; die;
}
[download]

# Mommy Dearest at line 21
# died at line 21