I would suggest using the IO::Socket module (I'd suggest v1.18 or higher) and use the listen() function:

______________________________________________
It's hard to believe that everyone here is the result of the smartest sperm.