#!/usr/bin/perl

use CGI qw(:standard);
print header();

$ipmsmrmiss   = param('msmrmiss');
$ipfirstname  = param('firstname');
$ipstate      = param('state');
$ipemail      = param('email');
$ipmessage    = param('message');

print "Here's what you entered:";  print"<p>";              
print "Ms/Mr/Miss        : $ipmsmrmiss";    print"<p>";   
print "Name              : $ipfirstname";     print"<p>";        
print "State             : $ipstate";        print"<p>";        
print "Email Address     : $ipemail";         print"<p>";        
print "Message           : $ipmessage";       print"<p>";        

$value = "msmrmiss = $ipmsmrmiss & firstname = $ipfirstname & 
	state     = $ipstate     & email     = $ipemail     & 
	message   = $ipmessage";

#print "Value --> $value";

dbmopen %guest,"data/dbguest", 0666;
	
	$guest{$ipfirstname} = $value;
	
dbmclose %guest;

