my $word = CreateObject Win32::OLE 'Word.Application' or die $!;
my $document = $word->Documents->Open($file);