Dateien verschieben?

[csx]

Ich möchte mit einem Perl-script ein Verzeichnis erstellen und es dann mit Dateien füllen. Wie kann ich Dateien verschieben oder wie kann ich beim Erstellen des Verzeichnisses angeben, welche Dateien es enthalten soll?

Muesste doch auch ungefaehr so funktionieren

open(QUELLE, "dir1/quelldatei.dat") die "wo issi quelle?";
flock(QUELLE,2);
open(ZIEL, ">dir2/zieldatei.dat") die "wasn mitm ziel?";
flock(QUELLE,2);

print ZIEL, <QUELLE>; # und gier die Frage: geht das so???

close(QUELLE);
close(ZIEL);

:o)