perl -I. -Mpmctest -le1 OK