use Win32::OLE qw(in with);
use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft MapPoint';
$Win32::OLE::Warn = 3;        # die on errors...

@states= qw (iraq iran);

my $MapPoint = Win32::OLE->new('MapPoint.Application', 'Quit');
my $Map = $MapPoint->NewMap();

  my $Results = $Map->FindPlaceResults("Virginia");
  my $second = $Map->findPlaceResults("Maryland");
  my $Location = $Results->Item(1);
  $Location->GoTo;
  my $secLocation = $second->Item(1);
  my @ary = ($location,$secLocation);
  my $x = $Map->Shapes->addPolyLine(@ary); # Fails
  # More below here