% perl -MData::Dumper -e 'print Dumper {one=>1};'