perl -MO=Deparse,-p,-x3,-i bookkeeping