Скрипт 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;