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

##</code><code>##

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