#!/usr/bin/perl -w
use strict;
use CGI;
my $query = new CGI;
# get all the name/value pairs in a hash
my %details = $query->Vars;
my $entry = join "#", values %details;
open (GBOOK, ">> guestbook.txt") or die "Oops, Perl says $!\n";
print GBOOK "$entry\n";
close GBOOK;
# now print some HTML out using a herepage
my $html_entry = join "
\n", values %details
print << HTML;
Content-type: text/html
Thanks!
Thanks!
Here is the data stored.
$html_entry
Click here to view your post
HTML
__END__