Help for this page

Select Code to Download

Select or download this
```
print $fh $_ while <$fd>;
```

Select or download this

use strict;
use warnings;
...
tie my  @array, 'Tie::File', $file or die "Cannot tie file '$file': $!
+";
unshift @array, 'data';
untie   @array;