9 $this = pack($pat,$inet,2345, 0,0,0,0);
10 select(NS); $| = 1; select(stdout);
12 if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
13 if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
14 if (listen(S,5)) { print "listen ok\n"; } else { die $!; }
16 print "Listening again\n";
17 if ($addr = accept(NS,S)) { print "accept ok\n"; } else { die $!; }
19 @ary = unpack($pat,$addr);
21 print @ary; print "\n";