perl -MO=Deparse <perl program>

##</code><code>##

perl -MB::Deparse <perl program>