use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr => $proxy_server,
                              PeerPort => $proxy_port,
                              Proto    => 'tcp');
send($sock,"GET $url HTTP/1.0\n\n",'');
recv($sock,$answer,$length,'');
if($answer =~ m/.../)
{
...