Копирование картинки

[Hob]

Здравствуйте, не подскажете как скопировать картинку \'http://...../image.gif\' на сервер сайта?

На сколько я понимаю нужно считать контент этой картинки и просто сохранить его в файл.
Только вот как считать этот контент?

[NeoNox]

perldoc LWP::Simple

[Hob]

NeoNox
т.е вот так должно работать?

use LWP::Simple;
my $url = "http://.../";
my $fn = "image.gif";
my $content = get($url.$fn);

my $file = \'/www/vhosts/.../\'.$fn;
open (IMG, ">$file") or die ("Cannot open file $file");
binmode IMG;
print IMG while (<$content>);
close (IMG);

[NeoNox]

ДА, если у вас на сервере исходящие запросы не запрещены

[xames]

НЕТ! работать не должно. Ошибка в коде.
--------------------------------------
my $content = get($url.$fn); # получем скаляр а не дескриптор
...
print IMG while (<$content> ); # ошибка
-------------------------------------
правильно будет так:
print IMG $content;

[Hob]

что то у меня файл нулевой создаётся, хотя контент  получает нормальный:(

xames
без <> не работает.

[xames]

use LWP::Simple;
my $content = get(\'http://forums.webscript.ru/avatar.php?userid=174&dateline=1022747124\');
print while (<$content> );  # ничего не выводит
print while <$content> ;   # ничего не выводит
print $content; # выводит контент

Hob:
xames без <> не работает.

Не верю!

[Hob]

Не верю!

open (IMG, ">$file") or die ("Cannot open file $file");
binmode IMG;
print IMG $content;
close (IMG);

вот так да, работает:)

Спасибо.