#!/usr/local/bin/perl
use File::Copy;
use Cwd;
use FileHandle;

open(DATEI,"<pfade.txt");
while($zeile=<DATEI>)
{
    push(@patharray,$zeile); 
}
close(DATEI);


for($i=0;$i<@patharray;$i++)
{
$srcPath = "@patharray[$i]";
opendir(inVERZ, $srcPath) || die "Verzeichnis ".$srcPath." nicht gefunden $!";

Anweisung

closedir(inVERZ);

}