bind($SERVERSOCKET,"./mysocket");

I think you'd want that to be bind($SERVERSOCKET, sockaddr_un('./mysocket')); but you might find it easier to use IO::Socket::UNIX to hide some of the details. If you definitely want to do it by hand then, at the lesat, you should probably use the Socket module for its constants.

By the way, the server should probably unlink('./mysocket') before binding to it and you should check the return value of bind() with bind(...) or die "..."; for instance.

-sauoq
"My two cents aren't worth a dime.";