#!/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 "Couldn'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;