Select Code to Download

        # Print __DATA__ section, if necessary
        no strict 'refs';
...
            print "__DATA__\n";
            print readline(*{$laststash."::DATA"});
        }

my $laststash = "main";
my $data=\*{$laststash."::DATA"};
...
__END__
end
end

__END__
end
end

__DATA__
# data
...
__END__
end
end