sub {
...

print Dumper($lat_1)."\n";
	print Dumper($lon_1)."\n";
	
	return -1 if (undef $lat_1 || undef $lon_1 || undef $lat_2 || undef $lon_2);
...
}