perl -MScalar::Util -e1