use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
    
$Win32::OLE::Warn = 2; 
my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');

   $Word->{'Visible'} = 1;
my $Doc = $Word->Documents->Add();
   $Word->Selection->WholeStory;
   $Word->Selection->InlineShapes->AddOLEControl({ClassType=>'Forms.CheckBox.1'});