if (my $x = x(f(), \&g)) {
   ...
}