find . -name '*.p[lm]' -print | xargs enscript -G -Eperl