use if $VersionOS eq 'Win', Win32::OLE::Const qw( Microsoft.Word);