you could try to play with
perl -MO=Deparse,[other options] yourscript.pl with some luck you could even get something working...