Select Code to Download

#!/usr/local/bin/perl -w
use strict;

...
        print "\n\n<!-- location:latitude=" . convert($lat) . ",longit
+ude=" . convert($lon) . " -->\n";
    }
}