Help for this page
... while (defined(my $line2 = $INFO)) { ...
... while (defined(my $line2 = <$INFO>)) { ...