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