seek(UNSUB, 0, 2);

##</code><code>##

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