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();

# Anfrage mit Methode HEAD
$request = HTTP::Request->new('HEAD' => $url);

# Antwort holen
$response = $ua->request($request);

if ($response->is_success())
  {
  # Header als ASCII-Text ausgeben
  print $response->headers_as_string() , "\n";
  }
else
  {
  # Fehlermeldung ausgeben
  print $response->message() , "\n";
  }