print $telnet->cmd('print scalar localtime(time)');

Thu Jun 29 15:58:52 2006

print $telnet->cmd('print $^X');

/usr/bin/perl