Insufficient information

syntax error at playerpost.cgi line 56, near ") {" syntax error at playerpost.cgi line 75, near "}" Execution of playerpost.cgi aborted due to compilation errors. ##

##

#!/usr/bin/perl

print "Content-type: text/html\n\n";

use CGI::Carp qw(fatalsToBrowser);

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

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($key, $value) = split(/=/, $pair);

$key =~ tr/+/ /;

$key =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ tr/+/ /;

$value =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~s///g;

if ($formdata{$key}) {
$formdata{$key} .= ", $value";
}
 else {
$formdata{$key} = $value;
}
}

$gender = $formdata{'gender'};

$age = $formdata{'age'};

$county = $formdata{'county'};

$bracket = $formdata{'bracket'};

$position = $formdata{'position'};

$name = $formdata{'name'};

$email = $formdata{'email'};

$experience = $formdata{'experience'};

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

$month = $mon+1;

$year1 = $year+1900;

$date = "$mday\/$month\/$year1"

if (($gender eq "") || ($age eq "") || ($county eq "") || ($bracket eq "") || ($position eq "") || ($name eq "") || ($email eq "") || ($experience eq "")) {

print <<"PrintTag";
Insufficient information

Insufficient information
Please click the 'Back' button on your browser to try again

PrintTag

exit;
}
elsif ($email =~ m/\w{1,}\@\w{1,}\.\w{1,}/)
{
elsif ($name =~ m/\w{3}/) {
open(DATA, ">>$ENV{'DOCUMENT_ROOT'}/cgi-bin/datap.txt") || &error;
flock(DATA, 2);
print DATA "$gender\+$age\+$county\+$bracket\+$position\+$name\+$date\+$experience\+$email\n";
flock(DATA, 8);
close(DATA);
}
else {
print <<"PrintTag";
Incorrect information

Incorrect information
You must type three initials.  Please click the 'Back' button on your browser to try again

PrintTag

exit;
}
} else {
print <<"PrintTag";
Incorrect information

Incorrect information
You must type your email address in the form 'email@address.com'.
Please click the 'Back' button on your browser to try again

PrintTag

exit;
}

sub error {
print "Content-type: text/html\n\n";
print "Can't open file";
exit;
}

Insufficient information

Please click the 'Back' button on your browser to try again

Incorrect information

You must type three initials. Please click the 'Back' button on your browser to try again

Incorrect information

You must type your email address in the form 'email@address.com'.Please click the 'Back' button on your browser to try again

You must type your email address in the form 'email@address.com'.
Please click the 'Back' button on your browser to try again