# Das ist das LWP::UserAgent-Objekt,
# über das du nun alle Zugriffe machst
# Das sollte recht früh initalisiert werden
my $http_get=LWP::UserAgent->new();

...

# irgend ein link:
my $site='http://www.dlib.org/rss/dlib.rss';

...

my $response=$http_get->get($site);
unless($response->is_success())
{ die(qq(ERROR: could not get "$site" MESSAGE:).$response->as_string()."\n"); }
print "REAL URL:".$response->base()->as_string()."\n";
my $xml_data=$response->decoded_content();

...