perl -MO=Deparse,-p -e '1'