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