@list = $telnet->cmd("hostname");
print "Host => $list[0]\n";