use strict;
use warnings;
use LWP;

# User-Agenten erzeugen
my $ua = LWP::UserAgent->new();

# Seite holen
my $seite = $ua->get('http://www.netzmafia.de/index.html');

# Seiten-Inhalt extrahieren
my $data = $seite->content();
print $data,"\n";