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";
     
        if (-d $name) {
          mkdir("$DST_DIR"."$name",0755)	or die "Kann $name nicht anlegen\n";
           &Fluxfscan($name);
           next;
        }
        copy("$name","$DST_DIR");
    }
    chdir($startdir) 		or die "Kann nicht in $startdir wechseln: $!\n";
}