How did your script get into production if it doesn't work?

But if you cannot modify your Perl script, modify the program calling your Perl script. See my above code.