my $startdir = "c:\\foo\\bar\\";            # in welchem dir geht es los?