use Foo "bar"; bar(); # yes
bar(); baz() if $qux; # no 
bar(); END { warn "qux" } # yes
##</code><code>##

% perl -MData::Dumper -E'$Data::Dumper::Deparse=1; print Dumper(eval q[sub {use File::chdir; local $CWD="/"; END { warn } }])'
$VAR1 = sub {
            use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
            local $CWD = '/';
        };
Warning: something's wrong at (eval 5) line 1.