# Perl program demonstrating branching

$word = "Hack";
&speak;

$word = "Or";
&speak;

$word = "Die!";
&speak;

sub speak {
   print"$word\n";
}