#!/usr/bin/perl -w

print "Status:  200 weee\nContent-type: text/html\n\n";

use CGI;
$data = new CGI;
$newgod = $data->param("god");


# 
# Open da file for da reading
open(FILE, "<survey.data") or die "Unable to open file";
$index = 0;
while ($god[$index] = <FILE>)
{	
	$count{$god[$index]}++;
	$index++;
}

foreach $name (keys %count)
{
	print "Previous answer: $name $count{$name} \n";
}
close(FILE);

# 
# Open da file for da riting
#
open(FILE, ">survey.data") or die "Unable to open for writing\n";
for($i = 0; $i < $#god; $i++) 
{
	print FILE "$god[$i]";
}
print FILE "$newgod\n";
close(FILE);