You missed out:

if (caller() eq 'english'){ &fart; }

sub fart{
$direction = "general";
$kernigits = "silly"
}
[download]