#!/usr/local/bin/perl
use Geography::NationalGrid;
foreach $OSGBgridref (@ARGV)
	{
	if ($OSGBgridref =~ /^[[:alpha:]]{2}[[:digit:]]{6}$/i )
		{
	              my $location = new Geography::NationalGrid( 'GB', GridReference => $OSGBgridref );
	              print $location->latitude . " ";
	              print $location->longitude . "\n";
		}
	}