$ perl -wle'
sub foo {
  return;
}
sub bar {
  return undef;
}
sub baz {
  return 1;
}
print "foo" if foo();
print "bar" if bar();
print "baz" if baz();'
baz
$