Go a CPAN mirror and fetch one of the countless modules that implement a ((pre-)forking) server for you. This is just too easy to do wrong without much deeper knowledge of Sockets, Perl and Forking...