If I uncomment the very first instance of "use strict; use warnings" 5.014 coughs up an error:

Number found where operator expected at D:\_Perl_\pl_test\972697.pl line 10, near ")4".

I'd tell you the line numbers but you ignored the bold face instruction to use <code>...</code> tags around your code (and, in the case of the error) quoted above, we're off by one because I assign the node number as the title of scripts I want to troubleshoot/help with/diddle and include it on its own line between the hashbang and the body of the code.

But those quibbles notwithstanding, my subsequent attempts to reformat your script (to something I find easy to follow) failed, perhaps because I couldn't figure out how to deal with the way you've commented out the declaration of #sub serv {.

Perhaps you'd like to revisit this -- and either update the OP or post the actual code that you think is "close" inside code tags.

Remember, if you make it easy for the Monks to grok your code and your intent, you're more likely to get solid answers.