■こんなCGI作ってください■

#!/usr/bin/perl
$|=1;

if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}
}else{
$buf = $ENV{'QUERY_STRING'};
foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}
}

open(LOG, 'SEX.txt');
$buf = <LOG>;
close(LOG);

($SEXMALE, $SEXFEMALE) = split(/,/, $buf, 2);

if($in{'GENDER'} eq '0'){ $SEXMALE++; }
else{ $SEXFEMALE++; }

open(LOG, '>SEX.txt');
print LOG "$SEXMALE,$SEXFEMALE";
close(LOG);