perl и картинка рамблера

возникла проблема =(

Code:

#!/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);

но трабла в том, что картинка сохраняеться криво.
со всякими помехами. может кто знает в чем дело?

 

Code:

open(IMG, '>img.jpg');
[B]binmode IMG;[/B]
print IMG $answer;
close(IMG);

 

...

 

спасибо всем.