abidq,

nthng is free in this world

That is correct. You have to work for things in order to get them.

I am asking you to replace your script with the modified one and post the resulting log file. Pretty simple. If you cannot bring yourself to do even this much, then it is pretty evident that you do not find fixing your Perl script to be of much importance.

Good luck.