#!/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;