Скрипт vote.pl
#!C:/apache/bin/perl/perl
# Вывод поля заголовка о типе содержимого
print "Content-type: text/html\n\n";
# Подключаемые модули
require '_stdlib.pl';
# Вызов подпрограммы формирования начального блока кода
&start('Голосование');
# Вызов подпрограммы чтения конфигурационного файла
&readconf;
# Вывод формы голосования
print "<form action=\"stats.pl\" method=\"post\" />\n";
print "<p><strong>$question</strong></p>\n";
for($i = 0; $i < $varqty; $i++)
{
print "<p><input type=\"radio\" name=\"choice\" value=\"$i\"
/>$vars[$i]</p>\n";
}
print "<p><input type=\"submit\" value=\"Проголосовать\"></p>\n";
print "</form>\n";
# Вызов подпрограммы формирования конечного блока кода и завершения работы
&stop;