print center(
        p(  'Thanks for signing my guestbook, your message ',
            "has been posted! $name!" ));

: # REMOVE THIS COMMENT TO ACTIVATE CENSOR
  # use Regexp::Common qw(RE_profanity);
: # $message =~ s/$RE{profanity}/bleep/msg;
:
: foreach ($name,$mail,$message) {
: s/</&lt;/g;
: s/>/&gt;/g;
: };
:
: foreach ($message,$mail,$name){
: s/\(b\)/<b>/ig;
: s/\(i\)/<i>/ig;
: s/\(\/b\)/<\/b>/ig;
: s/\(\/i\)/<\/i>/ig;
: };
:
: foreach ($message,$mail,$name)
: {
: s/\(red\)/<font color=red>/ig;
: s/\(\/red\)/<\/font>/ig;
: };