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