use CGI qw/:standard/;
my $name = param(Name);
my $address1 = param(Address1);
################################################################
# write info to a file
open(FILE, ">>/data.txt") || die "The database could not be opened";
flock(FILE, 2);
print FILE "$name\n";
flock(FILE, 8);
close(FILE);
################################################################
$expires = "Tuesday, 1-Dec-2099 16:00:00 GMT";
$path = "";
$server_domain = "http://www.mydomain.com";
print "Set-Cookie: ";
print "Name", "=", $name, "; expires=", $expires,
"; path=", $path, "; domain=", $server_domain, "\n";
print "Address", "=", $address1, "; expires=", $expires,
"; path=", $path, "; domain=", $server_domain, "\n";
print header;
print "";
print "The following data has been sent:";
print "Name: $name
";
print "Address: $address1
";