Select Code to Download

$ perl -E 'my $x = {a=>1}; say $x'
HASH(0xad5cb8)

$ perl -E 'use Data::Dump; my $x = {a=>1}; dd $x'
{ a => 1 }