Документ взят из кэша поисковой машины. Адрес оригинального документа : http://lnfm1.sai.msu.ru/~bakl/hello.cgi Дата изменения: Thu Apr 5 15:08:40 2001 Дата индексирования: Mon Oct 1 20:18:13 2012 Кодировка: Поисковые слова: arp 220

#!/usr/local/bin/perl -w
# program about ice in web

use strict;
use CGI qw(:standard);

print header;
print start_html("HI, world "), h1("What's this? ");
if ( param() ) {
my $who = param("name");
my $who1 = param("surname");
print p("Ok, $who $who1. I'm glad to see you in this please !");
} else {
print hr();
print start_form();
print p("What's your surname? ",textfield("surname"));
# print p("What's your name? ",textfield("name"));
print end_form(), hr();
}
print p("Bye - Bye");
print end_html;