Help for this page

Select Code to Download

Select or download this

while (<$INFILE>)            => while (defined($_ = <$INFILE>)
while (my $line = <$INFILE>) => while (defined(my $line = <$INFILE>)