use Net::Telnet;

@DATE=$telnet->cmd("date '+%Y-%m-%d'");
chomp($DATE[0]);

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

print "@Discon[0]\n";
##</code><code>##

Illegal octal digit '8' at -e line 1, at end of line