через сокет как еще =)
$Paddr = "irc.dal.net";
$Pport= 6667;
$socket = IO::Socket::INET->new(PeerAddr=>$Paddr,
PeerPort=>$Pport,
Proto =>"tcp",
Type =>SOCK_STREAM) || die "Error:$!"
вот так и происходит а дальше идет подключение к каналу и т.д и т.п
А если ты спрашиваешь подключение к прокси серверу то я сначало пытался сделать подключение через сокет к прокси а потом к серверу Ирке но ни фига:
$socket = IO::Socket::INET->new(PeerAddr=>$адрес_прокси,
PeerPort=>$порт_прокси,
Proto =>"tcp",
Type =>SOCK_STREAM) || die "Error:$!"
while ($socket)
{
$socket2 = IO::Socket::INET->new(PeerAddr=>$адрес_IRC,
PeerPort=>$порт_IRC,
Proto =>"tcp",
Type =>SOCK_STREAM) || die "Error:$!"
}
ну еще много всяких подборок было но как я уже говорил все рафно мой айпи видно
