% perl -MData::Dumper -e1