perl -MO=Deparse,p -E 'sub one {1} sub two {2} say '