use strict; use warnings;

sub f{0} sub g{1}

if (do {my $x = f(); $x and g($x)}) {
    print "cheerful: $x\n";
}
__END__
Global symbol "$x" requires explicit package name at scope.pl line 6.