Help for this page

Select Code to Download

Select or download this

for ( ; my $in = <$fh> ; )
{
...
  my $in = <$fh>;
  ...
}