Your code and output is far too long for me to look at it. Also, you don't ask a short and well-formulated question. But I see the following in your unformatted "error" output:

ERROR 3) Bareword found where operator expected at Adhoc.txn line 91, 
+near "/SearchRadius>
[download]

This looks to me as if you are trying to run a file named Adhoc.txn as a Perl script, while it contains something that might be XML or HTML. This is most likely an error, as very few XML files are executable as Perl programs.