Select Code to Download

my $word = Win32::OLE->new('Word.Application', 'Quit');
$word->Documents->Open("S:/Documents/CENTRAL NJ.doc") || die("Unable t
+o open document ", Win32::OLE->LastError());
...

$word->ActiveDocument->Close;
$word->Quit;