Help for this page

Select Code to Download

Select or download this
```
   while (<FS>) { $OP .= $_ }
```

Select or download this

    sub readfile {
        my $OP;
...
        close FS or die "Can't close $_[0]: $!";
        return $OP;
    }