: open HTML, ">>../gbook.html" or die $!;
: print HTML "<i>Name:</i> $name <br> <i>E-Mail: </i>$mail<br> ",
:            "<i>Message: </i>$message <p>";