my @serv = getservbyname(my $serv = $rport, 'tcp');
        $rport = $serv[2] || 22;