Help for this page

Select Code to Download

Select or download this

my $prev;
while( my $curr = <$infile> ) {
...
  }
  $prev = $curr;
}