Help for this page

Select Code to Download

Select or download this
```
while ($line = <IN>)
{$nextline=<IN>;
```

Select or download this

my $previous = '';
while ($line = <IN>) {
...
} continue {
    $previous = $line;
}