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

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

# Header ermitteln
my ($content_type, $document_length,
    $modified_time, $expires, $server) = head($url);

# Ergebnisse ausgeben
print "Content-type:    ", $content_type,       "\n";
print "Document-Length: ", $document_length,    "\n";
print "Modified-Time:   ", $modified_time,      "\n";
print "Expires:         ", $expires,            "\n";
print "Server:          ", $server,             "\n";