Select Code to Download

$ perl -Mstrict -Mwarnings -MData::Dump -le '
    my %x = (a => { B => 2 });
...

undef^undef
{ a => { B => 2 }, b => {} }