print "Bla\n"

print("Herunterladen von IMG-Kacheln....\n");

...

# öffnen der Liste mit den Image-Dateien
open(my $fh, '<', $liste) or die "Fehler bei open $liste ($!)\n"; # < immer den Fehlergrund mit ausgeben

# Auslesen der Dateinamen
while(my $kachelname=<$fh>){
   chomp($kachelname);
   $url=$url4image.$kachelname.$bz_prefix;
   print("$kachelname\n");

   my ($file)=$url=~m|/([^/]+?)$|;
   # etwas ausfuerlichere Ausgabe der Fehler beim Download
   # zudem wird jetzt nur entpackt wenn wirklich was herunter geladen wurde.
   print("unzip ...\n");
   print("$pfad$file.\n\n");
   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
   }
 }

rem test.pl %1 > report.txt

 > report.txt