Возможно ли с помощью перл скрипта скопировать файл с чужого хоста на свой?

Для: LSD
Ключевое слово LWP (Library for the WWW in Perl).

#!/usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://ya.ru";
my $agent = new LWP::UserAgent();
my $request = new HTTP::Request('GET' => $url);

my $response = $agent->request($request);

if ($response->is_success())
{
    print($response->content());
}
else
{
    print("Error: " . $response->status_line());
}

Спасибо, вроде работает

А как быть, если на все стандартные примеры выдает такой ответ:

===================================
error: 500 Can't connect to www.ya.ru:80 (Timeout) at /usr/home/...
===================================

При этом в firewall сделаны следующие настройки
========================================
ipfw add allow log tcp from any to any 80 out
ipfw add allow log tcp from any 80 to any in
========================================

Нда, вижу, что тут много настоящих специалистов...

Для: desp
тут точно нет телепатов