Help for this page

Select Code to Download

Select or download this
```
<$FH> for 1 .. 2;
```

Select or download this

while (! eof $FH) {
    my $start = tell $FH;
...
    seek $FH, $start, 0;
    last;
}