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

##</code><code>##

undef$/;$mmm="J\nutsu\nutss\nuts\nutst\nuts A\nutsn\nutso\nutst\nutsh\nutse\nutsr\nuts P\nutse\nutsr\nutsl\nuts H\nutsa\nutsc\nutsk\nutse\nutsr\nuts";open($DOH,"<",\$mmm);$_=$forbbiden=<$DOH>;s/\nuts//g;print;