foreach my $target (@targets) { $fullpath = $homedir.$target . '/inbound_zip'; opendir INZ, $fullpath or die $!; while ( my $in_zip = readdir INZ) { if (($in_zip ne ".") && ($in_zip ne "..")) { if ($in_zip =~ m/.*\.zip$/) { print "Erkannte Zip-Datei: $fullpath/$in_zip\n"; my $cmd = "cd $homedir$target/inbound; unzip $fullpath/$in_zip"; if (`$cmd` == 0) { print "Befehl [$cmd] erfolgreich ausgefuehrt. Entferne Zip-Datei\n"; $cmd = "rm $fullpath/$in_zip"; if (`$cmd` == 0) { print "Befehl [$cmd] erfolgreich ausgefuehrt.\n"; } } } } } }