perl -peruse filename