(PERL) Verzeichnisse + Inhalt rekursiv kopieren

[utang]

Wenn es ihre Zeit erlaubt möchte ich sie gerne um ihre Kompetente Hilfe bei
der Beendigung meiner Kopier-Rekursions Funktion bitten.

  
use Cwd; #Modul zum Ermitteln des aktuellen Verzeichnisses  
  
use File::Copy;  
  
$DST_DIR = "/home/tmarsh/.fluxbox/";  
$SRC_DIR = "/usr/portage/x11-wm/fluxbox";  
  
mkdir("$DST_DIR",0755) or die "kann $DST_DIR nicht erstellen: $!\n";  
&Fluxfscan("$SRC_DIR");  
  
sub Fluxfscan {  
        my ($workdir) = shift;  
        my ($startdir) = &cwd;  
  
        chdir($workdir) or die "Kann nicht in $workdir wecheseln: $!\n";  
        opendir(USR,".") or die "Kann $workdir nicht öffnen: $!\n";  
        my @names = readdir(USR);  
        closedir(USR);  
  
        foreach my $name (@names) {  
                next if ($name eq ".");  
                next if ($name eq "..");  
  
                print "$name\n";  
                copy("$name","$DST_DIR");  
  
                if (-d $name) {  
                        mkdir("$DST_DIR"."$name",0755) or die "Kann $name  
nicht anlegen\n";  
                        Fluxfscan("$SRC_DIR" . "$name");  
                        next;  
                }  
        }  
        chdir($startdir) or die "Kann nicht in $startdir wechseln: $!\n";  
}  

Mein Problem liegt im Umgang mit der Variable $DST_SRC ...
Ich bekomme keine vernünftige Lösung mit dem richtigen kopieren der
Unterverzeichnisse un deren Inhalt hin.

Das normale kopieren klappt wenn ich $name nicht auf "-d" prüfe .... soblad
er aber prüfen und dementsprechend kopieren soll scheitert mein unterfangen
daran, das die datein nur zum Teil in den richtegen Ziel verzeichnissen sich
befinden.

Wäre sehr erfreut wenn sie mir vlt. wieter helfen können.