Select Code to Download

use strict;
use warnings;
...
my $greet = makeGreeting();
my $deparse = B::Deparse->new();
print $deparse->coderef2text($greet);

{
    use warnings;
    use strict 'refs';
    my($name) = @_;
    print "$str $name\n";
}