Команды Unix, такие как ping, ssh, работают нормально, но программы на основе сокетов терпят неудачу в подключении

Я получил звонок от тестера о машине, которая терпела неудачу в нашем программном обеспечении. Когда я изучил проблемную машину, я быстро понял, что проблема была довольно низкого уровня: входящий сетевой трафик работает нормально. Основная исходящая команда, такая как ping и ssh, работает нормально, но все, что связано с вызовом connect() , терпит неудачу с «Нет маршрута к хосту».

Например, в этой конкретной машине эта программа завершится неудачей в инструкции connect() для любого IP-адреса, кроме 127.0.0.1 :

#!/usr/bin/perl -w
use strict;
use Socket;
my ($remote,$port, $iaddr, $paddr, $proto, $line);

$remote  = shift || 'localhost';
$port    = shift || 2345;  # random port
if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
die "No port" unless $port;
$iaddr   = inet_aton($remote)           || die "no host: $remote";
$paddr   = sockaddr_in($port, $iaddr);

$proto   = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto)      || die "socket: $!";
connect(SOCK, $paddr)    || die "connect: $!"; 
while (defined($line = )) {
    print $line;
}

close (SOCK)        || die "close: $!";
exit;

Любые предложения о том, где эта машина сломана? Он запускает SUSE-10.2.