use WWW::MapBlast;
#This modules takes in the country and gives the longitude and latitude of the that country.

my ($lat, $lon) = WWW::MapBlast::latlon('United Kingdom', 'E14NS');

print ("$lat - $lon \n");