Select Code to Download

   ZIP_CODE ONGITUD ATITUD
   00210 71.0132 43.00589
...
   00214 71.0132 43.00589
   00215 71.0132 43.00589
   ...

   00210,00210
   00210,00211
...
   00212,00210
   00210,00213
   ...

   #define EARTH_RADIUS 3956

...

           return (distance);
   }

   my $distance = sqrt(($x1-$x2)**2+($y1-$y2)**2);