while (<STDIN>){
    File::Find::find({wanted => \&wanted}, split);
    exit;
}