use Win32::OLE;
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->Documents->Open("C:/test/test.doc");
$Word->Selection->WholeStory;