perl -e "for (<$ARGV[0]>) { print \"$_\n\"}" file*