use strict; 
use warnings; 
use LWP::Simple; 
 
my $local = "pcw.txt"; 
print "Bitte URL eingeben\n"; #Liest nur die Startseite ein 
my $url = <STDIN>; 
 
my $page = get($url) or die "failed!\n"; 
 
open my $out, '>', $local or die "Cannot open $local for output: $!\n"; 
print $out $page; 
close $out;