use Win32::OLE;

my $Word = Win32::OLE->GetActiveObject('Word.Application');
$Word->{ActiveDocument}->DeleteAllComments;