Select Code to Download

  use Config;
  BEGIN {
    die "You are socketless!\n"
      unless Config::config_vars(qw/d_socket/) eq 'define';
  }

=over
     `d_getsbyname'
...
         program that the getservbyname() routine is available to
         look up services by their name.
=cut