See also Tip #3 from the Basic debugging checklist:

$HOSTNAME = `hostname -s`;
print ">>>$HOSTNAME<<<\n";
[download]

And you'll be better off in the long run if you use strict and warnings.