Help for this page

Select Code to Download

Select or download this

open(FILE1, $ARGV[0]) || die "Error: $!\n";
@lines = <FILE1>;

Select or download this
```
while ($line=<FILE1>){
```