After you have done the other things mentioned by responders, you might try:

#!/usr/bin/perl -w
use strict;
use Win32::OLE;

my $file = "c:\\temp\\foo.doc";
my $new_file = "c:\\temp\\foo2.doc";
#my $WordObj = Win32::OLE->new('Word.Application', 'Quit') or die "Cou
+ldn't run Word";
my $WordObj = Win32::OLE->CreateObject(qq|Word.Application|) or die $!
+;
my $wd = $WordObj->Documents->Open($file);
$WordObj->{Visible} = 1;
$WordObj->Selection->MoveDown(5,17); #lines
$WordObj->Selection->MoveRight(1,6); #column
1;
[download]

MoveDown and MoveRight's first parameters correspond to some constants in Word -- wdLine and wdCharacter or something like that.