Works for me, with these small changes, if the locations differ.

-print STDERR <<\EndFormats;
+print STDERR <<EndFormats;

-print $dlon AND $dlat;
+#print $dlon AND $dlat;
[download]