#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

my $pfad='C:/Perl/eg/'; # < Das "/" am Ende ist wichtig, sonst funktioniert der Pfad unten nicht.
my $liste='C:/Perl/eg/meineliste.txt'; # < Semikolon vergessen

# Programm zum entpaken der bzip2-komprimierten Dateien
# sollteste du installieren, oder etwas anders nutzen.
my $unzip='/bin/bunzip2'; # < Das ist ein Programm, ich glaube nicht, dass es so gefunden wird

open(my $fh, '<', $liste) or die "Fehler bei open $liste ($!)\n"; # < immer den Fehlergrund mit ausgeben
while(my $url=<$fh>){
  chomp($url);
  my ($file)=$url=~m|/([^/]+?)$|;
  # etwas ausfuerlichere Ausgabe der Fehler beim Download
  # zudem wird jetzt nur entpackt wenn wirklich was herunter geladen wurde.
  my $rc=getstore($url, "$pfad$file");
  if( is_success($rc)){
    system("$unzip $pfad$file") ==0 or warn "Fehler bei $unzip $pfad$file ($@)\n"; # < Fehlergund ausgeben
  }else{
    warn "Fehler bei download $url nach $pfad$file (".status_message($rc).")\n"; # < Fehlergrund mit ausgeben
  }
}
close($fh);