Select Code to Download

print DATAFILE Data::Dumper->new([\%some_hash],[qw(some_hash)])
                           ->Purity(1)
...
                           ->Indent(1)
                           ->Useqq(0)
                           ->Dump();