http://www.perlmonks.org?node_id=691152

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