my $x = 1;
unless ($x) {    # '$x' is NOT the last expression evaluated, but '!( $x )' is.
   f();
}