use strict;
use warnings;
use LWP::Simple;

my $url = "http://www.netzmafia.de/index.html";

# Header ermitteln
if (head($url)) 
  { print "URL existiert\n"; }
else 
  { print "Kein Anschluss unter dieser URI.\n"; }