...
print "TDATE: [$tdate]\n";
...
print "TRADE_DT: [$trade_dt]\n";
...