sub openport{
my ($name,$ip,$port)= @_ ;
    print "Connecting to $name @ $ip:$port  " if $debug > 1;
    my $nameport = $name.$port;
    $$nameport = new Net::Telnet (Timeout => 120);
    $$nameport->errmode("return");
    $$nameport->open(Host => $ip,
                 Port => $port);
    if (($error = $$nameport->errmsg) ne ""){
        return $error;
    } else {
        return "OK";
        # Now we send F-11 change the session to clear text.
        $$nameport->cmd("[Here's the problem]");
    }
}