perl -f -p