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

[x-treem]

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


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

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

[KSURi]

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

[slider]

...

#!/usr/bin/perl

use LWP::UserAgent;
use strict;


my $file="http://127.0.0.1/1.jpg";

my $ua = LWP::UserAgent -> new;
$ua -> get("$file", ':content_file' => "new.jpg");

[x-treem]

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