$t = new Net::Telnet (Prompt => ’/^$/’);