Select Code to Download

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

use CGI;
my $cgi = new CGI;
my $var1 = $cgi->param('FORM_VAR_1');

$temp = "$table" . "ips" . ".txt";
$temp1 = "$table" . "results" . ".txt";

$temp = "${table}ips.txt";
$temp1 = "${table}results.txt";

open(TABLEIP, "<$temp");
while(<TABLEIP>) {
...
   }
 }
close(TABLEIP);

use IO::File;
....
...
}
# note that you do not have to close the $file handle, falling
# out of the scope and perl will automatically close the file.

while(<TABLERESULTS>)
 {
...
    {last}
   }
 }

while(<TABLERESULTS>)
{
...
  $counter == 1 ? {$scoretotal = $_} :
    $counter == 2 ? {$votetotal = $_} : {last}
}