#!perl -w

use strict;

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

## Start Word engine
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->{'DisplayAlerts'} = 0;
my $wdc = Win32::OLE::Const->Load("Microsoft Word");

my $tpl = "c:\\perltest\\pages.doc"; ## Subject to change

## Open template
my $doc = $Word->Documents->Open($tpl, {ReadOnly =>  Variant(VT_BOOL, 1) } ) || die"add";

my $pages = $Word->ActiveDocument->BuiltInDocumentProperties( $wdc->{wdPropertyPages} )->Value;

$doc->Close( { SaveChanges => $wdc->{wdDoNotSaveChanges} } );

print " $tpl contains $pages pages\n";