#!/usr/bin/perl

use Math::Trig qw(great_circle_distance deg2rad);

# Prosze zauwazyc odejmowanie szerokosci geograficznej od 90 stopni; fi zero znajduje
# sie na biegunie polnocnym.
@londyn = (deg2rad(-  0.5), deg2rad(90 - 51.3));
@tokio  = (deg2rad( 139.8), deg2rad(90 - 35.7));

# 6378 to promien rownikowy Ziemi.
print great_circle_distance(@londyn, @tokio, 6378);

