$t = new Net::Telnet (Timeout => 60,
         Prompt => '/%|#|>|\\$ /');