select CDR_TDM;
print $_;
select STDOUT;

##</code><code>##

print CDR_TDM $_;