Реферат: Практический Перл для начинающего
# Если нет - генерируем HTML страницу с просьбой заполнить нужные поля.
if ($Name eq '' || $Email eq '' || $Text eq '')
{
print <<HTML;
Content-type: text/html
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>Книга жалоб и предложений - ошибка</title>
</head>
<body background="../images/background_new.jpg">
<div align="left">
<table border="0" width="630" height="49">
<tr>
<td width="200" height="45"></td>
<td width="430" height="45"><p align="center"><img src="../images/guestbook.GIF"
alt="Книгажалоб" WIDTH="258" HEIGHT="60"></td>
</tr>
</table>
</div><div align="left">
<table border="0" width="630" height="53" cellspacing="0" cellpadding="0">
<tr>
<td width="200" height="260" valign="top"><p align="center">
HTML
DoInclude("D:/InetPub/wwwroot/_menu.htm");
print <<HTML;
</p>
<p align="left"></td>