perl -MO=Deparse,-p  foo.pl