Select Code to Download

#!/usr/bin/perl
use warnings;
...
print $dump;
my $copy = eval "my $dump";
print Dumper $copy;