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);

##</code><code>##

Can't locate object method "Item" via package "test.mpp" (perhaps you forgot to load "test.mpp"?) at
 project1.pl line 7.