$word = Win32::OLE->new('Word.Application', 'Quit');
$word->Documents->Open("$WrkDir\\Pruefprotokoll.doc") || die("Unable to open document ", Win32::OLE->LastError());
$word->ActiveDocument->PrintOut;
$word->Quit;