sub she_says()
    {die $loser;}

print "Hello"; my $sweetie;

she_says;

#not again