In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (James Kipp) writes:
>$template = 'S n C4 x8'; >$| = 1; >socket(MY_SOCKET, AF_INET, SOCK_STREAM, 0) || die "Socket: $!\n"; > >$addr = (gethostbyname("10.1.101.12"))[4]; >$paddr = pack($template,AF_INET,$port,$addr); >bind(MY_SOCKET, $paddr) || die "$0: Cannot bind .. $!\n"; How primitive...may I suggest IO::Socket::INET: $socket = IO::Socket::INET->new(PeerAddr => "10.1.101.12", Proto => "tcp", PeerPort => $port); >$port = 6668; Or perhaps POE::Component::IRC :-) -- Peter Scott http://www.perldebugged.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]