perl -lE"say for<*.pl>"