Select Code to Download

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

% 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.