http://qs321.pair.com?node_id=19963

sub she_says()
    {die $loser;}

print "Hello"; my $sweetie;

she_says;

#not again