#!/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");

##</code><code>##

[root@sevan perl]# ls -lah /var/www/perl/
total 44K
drwxr-xr-x. 3 root root 4.0K Sep 23 14:27 .
drwxr-xr-x. 8 root root 4.0K Sep 23 11:11 ..