find(\&wanted, 'Docs');
sub wanted {
  /\.tex$/ && print "$File::Find::name\n";
}