my $x = f();

if ($x and g($x)) {
   ...
}