Select Code to Download

my $goodcode = <<'CODE';
print "Hello, how are you?\n"
CODE
...
    eval "sub {\n$badcode\n}";
}
print "Badcode error: $@\n" if $@;