Help for this page

Select Code to Download

Select or download this

chomp( my $line = <$fh> );
while (defined($line)) {
...

   $line = $next;
}