fai la prova disattivando la linea così:

foreach $type (@dirs) {
# next if ($type ~= /_vti_cnf/);
chomp($type);
$dir = "$base_dir/$type";

se ti funziona di nuovo allora la cosa va approfondita, se continua a non funzionare vuol dire che c'è qualche altro errore.