my $t = new Net::Telnet (Timeout => 30, Prompt => '/[:\$%#>]  $/');
$t->input_log(\*STDOUT);
$t->telnetmode(1);
$t->open($hostip);
$t->login($user, $pass);