open(GUESTBOOK, ">>", $guestbook) || die "Could not open guestbook\n";

##</code><code>##

use CGI;
my $cgi = CGI->new();

my %form_data = %{$cgi->Vars};

##</code><code>##

$form_data{$name}

##</code><code>##

$form_data{name}