select CDR_TDM;
print $_;
select STDOUT;