Help for this page

Select Code to Download

Select or download this
```
use Tie::File;

...

untie(@tiedfile);
```

Select or download this


foreach my $line (reverse(@new_content)) {
    unshift(@tiedfile, $line);
}