$t = Net::Telnet->new(Timeout => 10, Port => 23,Prompt => '/.*\>/');