use IO::Socket;
use strict;
my ($adr,$libem,$ii);
my $inum=0;
my ($get_pwd,$is,$i);

open(FI,"<psv.");
 my $ila=1;
 while(<FI>) { $ila=substr($_,0,5)};
close(FI);

while($i=<>){ 
 if ($ila>=$inum) { $inum++; next; };
 open (C_F,"<confirm.pwd");
 #flock(C_F,1);
 seek C_F,$inum*5,0;
 if (read (C_F,$get_pwd,5)) {
 print "\n$inum , PWD:$get_pwd";
 } else { die "Problem with PWD";};

 
 $adr=$i;
 chomp $adr;

#print "($uid,$adr);\n";
my $sc=IO::Socket::INET->new('taicom.marine.su:25') or die"not connect $@";
select($sc); $|=1; select(STDOUT);
$is=<$sc>; #print $is;
print $sc "helo venue\n";
$is=<$sc>; #print $is;
print $sc "mail from: <>\n";
$is=<$sc>; #print $is;
print $sc "rcpt to: $adr\n";
$is=<$sc>; print $is;
print $sc "data\n";
$is=<$sc>; #print $is;
print $sc "Subject:Независимый социологический опроc\n";
print $sc "From:socinfo\@pochtamt.ru\n";
print $sc "To:$adr\n";
print $sc "Content-Type: text/HTML; charset=windows-1251\n";
print $sc "Content-Transfer-Encoding: 8bit\n\n";
my $itext='Уважаемый Избиратель.'."\n".
'<br>&nbsp; &nbsp; &nbsp; Если Вы являетесь жителем Приморского края, очень просим Вас внести свой вклад в достижение честных выборов, ответив на эту анкету:'."\n".
''."\n".
'<form name=vtc method=post action="http://venue.ru/cgi-bin/polit/c_vote.cgi" target=_blank>'."\n".
''."\n".
'<b>Кого бы Вы хотели видеть губернатором края?</b><BR>'."\n".
'<TABLE  width="100%" border="0" cellspacing="0" cellpadding="0">'."\n".
'<TR>'."\n".
'<TD>'."\n".
'<input type=hidden name=cid value="'.$inum.'">'."\n".
'<input type=hidden name=cpwd value="'.$get_pwd.'">'."\n".
'<input type=radio name=votes value="01"> Апанасенко Г. В.<br>'."\n".
'<input type=radio name=votes value="02"> Гришукова В. В.<br>'."\n".
'<input type=radio name=votes value="03"> Гильгенберга В. А. <br>'."\n".
'<input type=radio name=votes value="04"> Дарькина С. М.<br>'."\n".
'<input type=radio name=votes value="05"> Дубинина В. С.<br>'."\n".
'<input type=radio name=votes value="06"> Кириличева А. Д.<br>'."\n".
'<input type=radio name=votes value="07"> Касатонова И. В.<br>'."\n".
'<input type=radio name=votes value="08"> Локтионову Т. В.<br>'."\n".
'</TD>'."\n".
''."\n".
'<TD>'."\n".
''."\n".
'<input type=radio name=votes value="09"> Омшарук В. В.<br>'."\n".
'<input type=radio name=votes value="10"> Попова С. Н.<br>'."\n".
'<input type=radio name=votes value="11"> Рыбалкина Ю. Г.<br>'."\n".
'<input type=radio name=votes value="12"> Жекова С. В.<br>'."\n".
'<input type=radio name=votes value="13"> Черепкова В. И.<br>'."\n".
'<input type=radio name=votes value="14">Никого из них!<br>'."\n".
'<input type=radio name=votes value="15">Не знаю!  <BR>'."\n".
'<input type=radio name=votes value="00">Мне всё равно! <br>'."\n".
'</TD>'."\n".
'</TR>'."\n".
'</TABLE>'."\n".
''."\n".
''."\n".
'<input type=submit name=gor value="Голосовать">'."\n".
''."\n".
'</form>'."\n".
'<a href="http://venue.ru/cgi-bin/polit/resvote.cgi" target=_blank>Посмотреть результаты голосования</a>'."\n".
'<br>С Уважением <br>'."\n".
'&nbsp; &nbsp; &nbsp;"Объединение Независимых Наблюдателей" и "Лаборатория Интернет-социологии!"'."\n".
'</body></html>'."\n";

print $sc "$itext";
print $sc "\n.\n";
$is=<$sc>; print $is;
print $sc "quit\n";
close($sc);

 open( FO,">>psv.");
 print FO "$inum\n";
 close(FO);
 $inum++;
};

