perl -pe 'close ARGV if $. == 5' file1 file2 ...