You can stick a print; inside a while(<FH>) { } to avoid stuffing the memory with file contents...

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.