#!/usr/bin/perl;
use strict;
use warnings;
use LWP::Simple;

my $pfad='/pfad/zum/ziel/';
my $liste='/pfad/zur/liste.txt'

my $unzip='/bin/bunzip2';

open(my $fh, '<', $iste) or die "Fehler bei open $liste\n";
while(my $url=<$fh>){
  chomp($url);
  my ($file)=$url=~m|/([^/]+?)$|;
  getstore($url, "$pfad$file") or warn "Fehler bei download $url nach $pfad$file\n";
  system("$unzip $pfad$file") ==0 or warn "Fehler bei $unzip $pfad$file\n";
}
close($fh);