use LWP::Simple;
use strict;

my $text = get ("http://www.spiegel.de/");
print "$text\n";
my $ende = <STDIN>;