sub connect {
        my ($console_server,$console_port) = @_;
        my $telnet = new Net::Telnet ( Timeout=>10,Port => $console_port ,Errmode=>'return');
        $telnet->open("$console_server");
        if ($telnet->errmsg){
               print "errmsg: " . $telnet->errmsg . "\n";
        } else {
               print"success\n";
        }

        print ("loginig in...\n");
        $telnet->print('user');
        $telnet->waitfor('/password: $/i');
        $telnet->print('password');
                $telnet->waitfor('/# ?$/i');
                print ("exiting...\n");
                $telnet->print('exit');
        }
}


while (<DATA>) {
        my $line = $_;
        print "trying to connect to console server $console_server_tem
+p port $console_port_temp \n";
        &connect($console_server_temp,$console_port_temp);
}