#zum Zielverzeichnis wechseln: chdir($VerzPfad.$strAblageVer) or die(qq#ERROR chdir "$strAblageVer" ($!)\n#); foreach my $dateien ( @files ) { print "::: ".$VerzPfad.$strAblageVer.'/'.$dateien."\n"; system("/usr/bin/unzip", -d, $VerzPfad.$strAblageVer.'/'.$dateien ) == 0 or die "system failed: $?" }