$searchfile =~ /^\.svn$/;
print "$searchfile\n";
rmdir $searchfile;
if ( -d $searchfile) {
    &traversedir($searchfile);
} else {
    last;
}