use strict; use warnings; use Win32::OLE; my $word = Win32::OLE->new( 'Word.Application' ); $word->{Visible} = 1;