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