if (my $x = f() and g($x)) {
  ...
}