sub _connect { 

        my ($tc,$client,$pwd) = @_; 

        my $t = new Net::Telnet (Timeout => 10); 

        $t->open("$$tc"); 

        $t->login($$client,$pwd); 

        $t->close; 

        print "\n\$?: $?\n"; 
}