#!/usr/bin/perl

use strict;
use Math::Trig;

#Geodaten Ort1 (Bochum)
my $B1 = 7.2167121725093;
my $L1 = 51.4840049423119;

#Geodaten Ort2 (Essen)
my $B2 = 7.008753968688;
my $L2 = 51.4586961144773;

#Kreiszahl Pi
my $pi = 3.14159;

#Umrechnung von Grad in Radius
my $breite1 = $B1 / 180 * $pi;
my $laenge1 = $L1 / 180 * $pi;

my $breite2 = $B2 / 180 * $pi;
my $laenge2 = $L2 / 180 * $pi;

#Entfernungsberechnung
my $entfernung = acos(sin($breite1)*sin($breite2) + cos($breite1)*cos($breite2)*cos($laenge2-$laenge1));

#Erdrundung einbeziehen
$entfernung = $entfernung * 6378.137;

print "Entfernung (Luftlinie): $entfernung km\n";