open (UNSUB, ">>unsubscribe.txt") or die send_email("Open Unsubscribe.txt$!\nUnsubscribe $surveyID");
flock (UNSUB, 2) or die send_email("Flock Unsubscribe.txt$!\nUnsubscribe $surveyID");
print UNSUB "$surveyID\n";
close UNSUB;