Help for this page

Select Code to Download

Select or download this
```
seek(UNSUB, 0, 2);
```

Select or download this

use Fcntl qw/:flock :seek/;
open(UNSUB, ">>unsubscribe.txt");
...
seek(UNSUB, 0, SEEK_END);
print UNSUB "$surveyID\n";
close UNSUB;