use LWP::Simple;
my $url="http://www.amazon.de/gp/offer-listing/B001BJGOTK";
my $doc =get($url);

open DATEI, ">","resultat.txt";
print DATEI $doc;
close DATEI;