require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://www.swisswebcams.ch/export/xml_slf/xml_slf.xml');

if ($response->is_success) {
$ua->mirror('http://www.swisswebcams.ch/export/xml_slf/xml_slf.xml', 'xml_slf.xml');
}
else {
die $response->status_line;
}