# Add the doc
my $doc = $word_ref->Documents->Add ;

my $obj_sel = $word_ref->Selection ;

for (1..$count) {
  $obj_sel->InlineShapes->AddPicture($image) ;
  $obj_sel->InsertBreak() ;
}