Если бы возможности CGI-скриптов ограничивались созданием статических форм, то это было бы грустно. Настоящая сила CGI состоит в придании Web-страницам динамики. В главе 11 вы рассматривали программу на языке C++, которая создает скрипт, выводящий на экран значения переменных окружения. Следующий скрипт на языке Perl решает идентичную задачу. Тем не менее, вы убедитесь, насколько проще выглядит программа на языке Perl , чем аналогичная С++ версия, показанная в главе 11:
print <<HTML;
Content-type: text/html
<HTML>
<HEAD><TITLE>Echo Environment Variables </TITLE></HEAD>
<BODY>
<H3><CENTER>
Environment Variables:<HR>
</CENTER></H3>
for $env (sort keys %ENV)
{
print “<LI>$env is $ENV{$env}<BR>”;
}
print “</BODY></HTML>\n”
Этот пример создает статический заголовок, и затем выводит значения переменных окружения скрипта, используя форматированный HTML-документ. Скрипт показывает, как использовать конструкцию «здесь-документ» совместно с традиционной функцией print .