could you not do:
$x=readline(1)
while not @error
? $x
$x=readline(1)
loop
? "end of file"
_________________________
How to ask questions the smart way <-----------> Before you ask