While merlyn's advice will likely be more sage than mine, this is one of the few times where I have found eof() to useful in a perl program.

mikfire