my $x = 42;
print is_foo_or();
sub is_foo_or { 
	return foo($x) or $x;
} 
sub foo {
	return 0;
}