use Win32::OLE;
    use Win32::OLE::Const;
    my $Word = Win32::OLE->new('Word.Application');
    my $wd = Win32::OLE::Const->Load($Word);