##

#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use Fcntl qw(:flock :seek);

my $outfile = "poll.out";

 if (param('signoff')) {
   open(OUT, ">>$outfile") or die("outfile issue");
   flock(OUT, LOCK_EX);      
   seek(OUT, 0, SEEK_END);   
   print OUT param('signoff'),"\n";
   close(OUT);
}else{die ("param issue");}