use strict;
use warnings;
use LWP::UserAgent;
use HTML::Stripper;

my $ua = LWP::UserAgent->new();
$ua->timeout(60);

my $response = $ua->get('http://www.example.org');
print "Fehler beim Connect!" and die if(!$response);

my $stripper = HTML::Stripper->new(skip_cdata => 1);
my $result = $stripper->strip_html(%$response);

print $result;