my $obj = Net::Telnet->new( Timeout => 10, Errmode => 'return', Max_buffer_length => 50*1024*1024, Prompt => 'SomePromptthatworkswell');