#!/usr/local/bin/perl -w
 use strict;
 use LWP::UserAgent;

 my $ua = LWP::UserAgent->new;

 my $resp = $ua->get( "http://google.de" );
 if( $resp->is_error ) {
     die "Error: ", $ua->message;
 }
 binmode STDOUT, ":utf8";
 print $resp->decoded_content;