Select Code to Download

#!/usr/bin/perl --
use strict; use warnings; use Data::Dump qw/ dd /;
open my($handle), '<:raw', \'
...
dd( \%result );
__END__