my $tdtRoot = 'c:/tdt/src';
if (opendir (DIR, $tdtRoot))
{
  while (my $fileName = readdir (DIR))
  {
    if ($fileName =~ m/\.tdt$/)
    {
      system ("$BASEDIR/nbsstools/tdtgen/bin/tdtgen $tdtRoot/$fileName");
    }
  }
  closedir (DIR);
}