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

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

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