my $server = IO::Socket::UNIX->new( Local => '/tmp/mysock' ) or die $!;