my ($a, $b, $c)=$telnet->cmd(string => 'ls', prompt => '/=>/');