Help for this page

Select Code to Download

Select or download this

while ( <IN> ){ # no blanks araound IN
  ...
while ( <$fh> ){  # dito

Select or download this
```
open (IN, "<",  $dir/$file")
```