The Subroutine is in another perl script where I am calling I have copied it here to check what exactly it is.
Anymore questions ???