#!/Perl/bin/perl 

require "cgi-lib.pl";
require "common.pl";
print &PrintHeader;

&initial;
&getdate;

&GetCookies{'soccer_name'};
$name=$Cookies{'soccer_name'};

$name="Guest" if (!($name));

$in=$input{'in'};

$out=$pathf . $s . "gb" . $s . $stamp . "-" . $name;

if (open(OUT,">$out")) {
   print OUT "$in\n";
   close OUT;
   &good("Thank you: $name !!!");
   exit;
} else {
  &bad("Bad open! <!-- $out -->");
}