perl -MO=Deparse test.pl