perl -MO=Deparse japh.pl