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