perl -MO=Deparse,-p temp.pl