#!/usr/bin/perl 

use IO::Socket;
use strict;

my $data = "GET /captcha/e0b7df311d8298749e79bbfe9db9524e.jpg
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
Referer: id.rambler.ru
User-Agent: Opera 9.0 /EN 1.0x
Host: id.rambler.ru

";

my $socket = IO::Socket::INET->new("id.rambler.ru:80") or die " [E] Can't connect to talk.grdono.by";

$socket->send($data) or die " [E] DATA not sending!\n";
$socket->read(my $answer, 2250) or die " [E] DATA not reading!\n";
open(IMG, '>img.jpg');
print IMG $answer;
close(IMG);