I'd guess $line is never set before the first time it is compared to 99. Either (1) change line 11 to:
$line = 0;
while ( $line != 99){
or (2) use a do-while loop.
do {
...
} while ( $line != 99);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
