$telnet = new Net::Telnet->new( Timeout=>20,Prompt => '/[\$%#>] $/');