my $x = 0;
if ($x) {
   f();
} else {
   g();      # g() is the last expression evaluated.
}