Hab mal etwas rumprobiert und das Problem ist ganz klar.

Jetzt steht ja in $files nicht mehr nur der Name der Datei sondern der gesamte Pfad mit Datei

Also z.b. Ordner/test1.txt oder Ordner/Unterordner/test2.txt und so weiter.

Damit copy jetzt richtig funktioniert müsste in $quelle der Pfad stehen und in $files der Dateiname. Also müsste man jetzt das was in $files steht in den Pfad und in den Dateinamen aufsplitten. Aber wie soll das gehen wenn der Pfad immer anders sein kann?

Max86+2008-10-01 16:13:23--

Aber wie soll das gehen wenn der Pfad immer anders sein kann?

Mit
File::Basename geht das.

Vielen dank das war genau die Info dir mir gefehlt hat. Das Modul war mir noch fremd. Jetzt funktioniert alles einwandfrei.

Grüße Max

Und wieder ein Crosspost:
http://www.perlboard.de/?id=9738
An Max86 das bitte auch als solchen markieren!