$address=$ENV{REMOTE_ADDR};
open FILE, "<logaddresses.dat";
my $addresses;
{
local $/=undef;
$addresses=<FILE>;
}
close FILE;
if($addresses=~/\Q$address/){
   print "You already voted\n";
} else{
   open FILE, ">>logaddresses.dat";
   print " $address\n";
   close FILE;
   # update poll;
}
#display results;