perl -MO=Deparse,-p almsdealer.pl >deparse.pl