10 $SIG{'INT'} = 'dokill';
12 $this = pack($pat,$inet,0, 128,149,13,43);
13 $that = pack($pat,$inet,$test,127,0,0,1);
15 if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
16 if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
17 if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }
19 select(S); $| = 1; select(stdout);
34 sub dokill { kill 9,$child if $child; }