That needs to be

while ( defined( my $line = $fh->getline ) ) {
[download]

defined is automatically added in some cases. That's not one of them.