use strict;
use warnings;

use URI::Fetch;
use LWP::UserAgent;

my $source = 'http://thorsen.pm/atom';

my $res2 = URI::Fetch->fetch($source);
print '2: ' . URI::Fetch->errstr if not $res2;

my $ua  = LWP::UserAgent->new;
$ua->env_proxy; # force allowing of proxies
my $res1 = URI::Fetch->fetch($source, UserAgent => $ua);
print '1: ' . URI::Fetch->errstr if not $res1;