perl -MO=Deparse -e "....."