Форум АНТИЧАТ - perl и картинка рамблера

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - perl и картинка рамблера (https://forum.antichat.xyz/showthread.php?t=44396)

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

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

Код:

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

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

Код:

open(IMG, '>img.jpg');

binmode IMG;

print IMG $answer;

close(IMG);

...

Цитата:

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

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