#!/usr/bin/perl
use CGI;
use IO::Socket::UNIX;
use strict;

my $socket_path="/var/www/perl/pwd";
my $dsocket=IO::Socket::UNIX->new(
	Type=>SOCK_STREAM,
	Local=>$socket_path,
	Listen=>SOMAXCONN,
)
	or die ("Error: $!\n");