my $ua = new LWP::UserAgent;
my $req = new HTTP::Request 'GET' => "http://www.url.de";
my $res = $ua->request($req);

if ($res->is_success) {
    print "hat geklappt";
} else {
    $rueckgabe = "Error: URL not found"; exit;
}