Help for this page

Select Code to Download

Select or download this
```
my $file = shift @ARGV;
```

Select or download this

my $last;
while (<MYFILE>) {
...
   }
   $last = $_;
}