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

# User-Agent
my $ua = LWP::UserAgent->new();
$ua->timeout(20);               # 20 s Timeout
# Das folgende ist nicht ernst gemeint, gibt
# aber einen exotischen Eintrag in der 
# Browser-Statistik des Webservers
$ua->agent('Mozilla/4.0 [en] (WinNT; I) [Netscape]');

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

# Request
my $seite = HTTP::Request->new('GET' => $url);

# Response
my $res = $ua->request($seite);
print "Fehlernummer : ", $res->code() , "\n";
print "Fehlermeldung: ", $res->message(), "\n";

# Seiten-Inhalt extrahieren
my $data = $res->content();