use Win32;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';

use Constant 'True' => 1;
use Constant 'False' => 0;

$word=Win32::OLE->GetActiveObject('Word.Application');

$word->AddIns->Add ({FileName=>"D:\\sample.dot", Install=>"True"});