$telnet->put("\r");