use strict;
use Win32::OLE;
my $proj = "<C:\mydir\proj.mpd>\proj.mpp";
my $Object = Win32::OLE->GetObject( $proj ) || die $!;