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.Ch
+eckBox.1'});
[download]

You'll probably have to read the class documentation to get the names for the ClassTypes for OLEControls, but that's a good exercise for the reader.

C-.

---
Flex the Geek