Dateien verschieben

[Frank]

Hallo zusammen,
habe in Perl ein Problem Dateien eines Arrays auszulesen und Sie dann zu verschieben.

Ich benutze dazu die Funktion RENAME.

Ich kann in meinem Skript nicht erkennen warum es nicht funktioniert.
Ich will lediglich zu Testzwecken ZIP.Dateien eines Ordners in einen anderen verschieben.

Vielleicht kann jemand einen Fehler erkennen.
Danke schonmal.
Frank

#Erstellen eines Array mit den gezippten Dateien
@dir = dir $savedir\\\*.zip /b /a-d;
$anzahl = @dir;
print "$anzahl Dateien wurden zum Verschieben vorbereitet \n";

@dir = dir $savedir\\\*.zip /b /a-d;

foreach $file (@dir){
$quelle = d:\Test\$file
$target = d:\Target\MOVE_$file

rename $quelle, $target

}