Again, won't work if any of the items in @ARGV are pipe-opens or a non-seekable STDIN.

-- Randal L. Schwartz, Perl hacker