@Discon=$telnet->cmd("cat /data/pinpe.csv | nawk '{print \$4}' | perl -ne 'print if \$_ lt \'$DATE[0]\''");