my $dir = "e:\/";

find(\&search_sub, $dir);