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";
}
[/code]

mein Problem liegt im Handle mit dem $DST_DIR ...

hat keiner eine n möglichen Lösungsansatz?