if ($cgi->param('do') eq "add") {
    my $text = add();
    print $text;
}

sub add {
    my $out = 01: qq~
<h1>G&auml;stebuch - Eintr&auml;ge verfassen</h1>

<p>Hier k&ouml;nnen Sie einen Eintrag in meinem G&auml;stebuch hinterlassen. Bitte f&uuml;llen Sie das untenstehende Formular aus.</p>
 
 <form method="post">
 Name: <input type="text" name="name" size="25" value="">
 eMail: <input type="text" name="name" size="25" value="">
 Homepage: <input type="text" name="name" size="25" value="http://">
 <input type="submit" name="add" value="OK">
 </form>
 );
 
    unless ($cgi->param('parametername???')) {
        $out .= "<p><strong>Es wurden nicht alle Felder ausgef&uuml;llt!</strong></p>";
    }
    return $out;
}