use Win32::OLE;
  use Win32::OLE::Variant;
  use strict;

  my $app = Win32::OLE->GetObject("SomeProject.mpp")
              or die "Couldn't open project";

  my $project = $app->{Projects}->Item(1);