#!/usr/bin/perl
print "Content-type: text/html";
use IO::Socket;
$queryString = <STDIN>;
@elements = split ( '&', $queryString );
$idx = 0;
foreach $item ( @elements ) {
($field, $value) = split ( '=', $item );
$fields[$idx] = $field;
$values[$idx] = $value;
$values[$idx] =~ s/\+/ /g;
$values[$idx] =~ s/%([a-fA-F0-9][a-dA-F0-9])/pack("C",hex($1))/eg;
$idx++;
}
$socket = IO::Socket::INET->new(PeerAddr => $values[0],
                                PeerPort => 110,
                                Proto    => "tcp",
                                Timeout  => 60)
    or die "Couldn't connect to $values[0]:110 : $@";
print $socket "USER $values[1]";
print $socket "PASS $values[2]";
print $socket "$values[3]";
#именно при выполнении следующей команды идёт задержка около мнуты-двух.
#в чём проблема???
@lines = <$socket>;
print $socket "QUIT";
close($socket);