Select Code to Download

$ perl -Mstrict -Mwarnings -MData::Dumper -E '
> open my $tableFH, q{<}, \ <<EOD or die $!;
...
> }
> 
> print Data::Dumper->Dumpxs( [ \ %chroms ], [ qw{ *chroms } ] );'

%chroms = (
            'chr3' => {
...
                                     }
                      }
          );