Select Code to Download

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

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