A perl script to generate network weathermap images for use with Xymon and Devmon