One other little addition (or, rather, a subtraction).

The CGI module has a functional interface which can make writing simple CGI scripts... well... simpler :)

I don't have time to rewrite the whole script, but here are the first few lines.

#!/usr/bin/perl
use CGI qw(:standard);

print header;
print start_html(-title => "Guestbook Thing");
print h1("Guestbook Thing");
&writeit();
&readit();
&printit();
print end_html;

sub writeit{
  print startform;
  print "Name:";
  my $name = param('Name');
  my $comments = param('Comments');
  print textfield(-name =>'Name'), br;

  print "Message:", br, textarea(-name => "Comments",
                                 -rows => "10",
                                 -columns => "50"),
        br, "\n";
  print submit(-value => "Submit");
  print reset(-value=>Reset);
  print hr;
  print endform;

  open(WRITE, ">>guestbook.txt") || dienice("AHH $!");
  print WRITE "$name::$comments\n"; #wonders if he should use the join
+ function here...
  close(WRITE) || dienice("AHH $!");
}
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me