find(\&wanted, "c:/test");
    sub wanted {
    $file=$File::Find::name;
 if (/stra.e\.txt/){
 $file=$_;
    }
 }