perl -MO=Deparse < script.pl