in reply to Re^2: New to Perl - Script Error
in thread New to Perl - Script Error

    while (<IN> ne "") {

      my $line = $_;

      chomp($line);

[download]
Try: 
 while (my $line = <IN>) {
      chomp($line);

[download]

In Section Seekers of Perl Wisdom