my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->{'Visible'} = 1;

$Word->Documents->Add;
# ... Excel Chart, as GIF, inserted ...
$Word->ActiveDocument->PrintOut;
# sleep( 5 );
$Word->ActiveDocument->{Saved} = 1;