use Win32::OLE;

my $word = Win32::OLE->new('Word.Application');
$word->{Visible} = 1;
my $document=$word->Documents->Add;
$word->Selection->TypeText("Some Text");