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