Здраствуйте.

Такая вот беда.
Есть CGI скрипт клторый делает TCP сокет на локальную машину.
Примерно
if ( $sock = IO::Socket::INET->new(
            Proto => "tcp",
        PeerAddr => "localhost",
        PeerPort => 12346))
  {
  -----------
  -----------
  }else{
   print "Can't make socket";
  }
На моей тестовой машине работает.
На гостинге не работает. Говорит что не подключаэтся. Но если выполнить скрипт из командной строки в шеле то работает.
В чем проблема?
Настройки апача или не тот юзер? Если апач, то какой параметр за это отвечает.
Кто нибудь с этим стыкался?

Заранее благодарен.