if ( ! -f $BASEDIR/nbssoammsg/tdt/src/tdt9999.cxx ) {
    system ( qq(cd $BASEDIR/nbssoammsg/tdt/src));
    for $TDT (split/\s+/,`ls *.tdt`){
         system (qq($BASEDIR/nbsstools/tdtgen/bin/tdtgen $TDT));
    }
} else {
    print "Skipping tdtgen file generation -- if you want to force a regen\n";
    print "of tdt files, delete $BASEDIR/nbssoammsg/tdt/src/tdt9999.cxx\n";
}

##</code><code>##

chdir("$BASEDIR/nbssoammsg/tdt/src") or error_code_here();