use strict; use warnings;
use utf8; use encoding 'utf8';
use LWP::Simple;

mkdir 'grab' unless -d 'grab';

use vars qw($VAR1);
use AmazonCache; # Cache laden
my $cache = $VAR1;

for my $item (@$cache) {
	print $item->{ASIN}, "\n";
	LWP::Simple::mirror('http://www.amazon.de/dp/'.$item->{ASIN}, 'grab/'.$item->{ASIN}.'.html');
}