$!=$^E = '';
  my $sk = IO::Socket::INET->new(Proto    => "tcp", LocalPort => 9000,
LocalAddr => "127.0.0.1", Listen    => 5, Reuse     => 1);
print "unable to create socket: $! : $^E\n" if (!$sk);