my $MSWord = Win32::OLE->new('Word.Application') or die $!;
$MSWord->{'Visible'} = 1;
my $doc = $MSWord->Documents->Open("c:/temp/Word.doc");

##</code><code>##

my $MSWord = Win32::OLE->new('Word.Application') or die Win32::OLE->LastError();
$MSWord->{'Visible'} = 1;
my $doc = $MSWord->Documents->Open("c:/temp/Word.doc") or die Win32::OLE->LastError();