#!/usr/bin/perl

use strict;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();


my $request = HTTP::Request->new('GET', $adress);
my $file = $ua->request($request);

if ($file->is_success()) {
   print "Ok\n";
} else {
   print "Fehler: ".$file->message();
}