Select Code to Download

use Data::Dump qw/pp/;
print 'my $data = ',pp(do { open my $fh, '<:raw', $filename or die $!;
    local $/; <$fh> }),";\n";