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