Select Code to Download

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";         
+      
@tdefs = grep { /\.tdef$/ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;