perl -wle'print while <>' dir/*