So, pray tell us if there was a firewall change or other net modification o/a "two month" ago? It's unlikely that Perl, per se, is responsible, and our Monastery-wide psi-system for checking your code is out of service.
Please note, also, that your node looks as though you didn't bother to read On asking for help, How do I post a question effectively?, or I know what I mean. Why don't you?. You might find them helpful in terms of posting your SOPW.
If I've misconstrued your question or the logic needed to answer it, my apologies to all those electrons which were inconvenienced by the creation of this post.