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