use strict;
use warnings;
use LWP::UserAgent;

my ($url, $ua, $request, $response);

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

# User Agent
$ua = LWP::UserAgent->new();

$request = HTTP::Request->new('HEAD', $url);
$response = $ua->request($request);

print "HTTP-Status-Antwort-Header: ", $response->code , "\n";