perl -MO=Deparse ./test.pl