Select Code to Download

#!/usr/bin/perl

...
my $body = $deparse->coderef2text($tricky);

print "$body\n";

{
    use warnings;
...
    print "Hello @_\n";
    return 42;
}