use strict;

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

my $file = "C:\\blah\\test.mpp";

print "Opening " . "$file \n";     
my $app = Win32::OLE->GetObject($file)
	or die "Couldn't open project" .  Win32::OLE->LastError();

$app->{visible} = 1;

$app->FilePageSetupHeader({
	Name 		=> 'Name',
	Text 		=> 'test project',
	Alignment 	=> '1'
	});