use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';

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