perl -MO=Deparse <scriptname>.