open(INFILE, "< listofips.txt");
$filesize= -s INFILE;
read(INFILE, $wholepage, $filesize);
close(INFILE);
if( !($wholepage =~ m/$ENV{'REMOTE_ADDR'}/) )
{
    open(OUTFILE, ">listofips.txt");
    print OUTFILE "$wholepage\n";
    print OUTFILE $ENV{'REMOTE_ADDR'};
    close(OUTFILE);
    # add vote stuff here

}