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

open GUESTLOG, ">>guest_log.html" or die $!;
my $name = CGI::escapeHTML( param("name") );
my $text = CGI::escapeHTML( param("text") );
$text =~ s/\r\n\r\n/\n\n<p>/g;
$text =~ s/\r\n/<br>\n/g;
print GUESTLOG "<p><strong>$name:</strong><br>\n";
print GUESTLOG $text, "\n";
print GUESTLOG "\n<hr>\n\n";
close GUESTLOG;

print header, start_html('Klar'), h1('Klar'),
    p( a( {-href => 'guest_look.shtml'}, 'Gå vidare' ) ),
    end_html;