You are reading from a handle named IN, while the open opens a handle $fh. That isn't going to work. If you turn warnings on (which usually is a good idea), Perl would have told you that you were reading from an unopened filehandle.

Abigail