my $word = Win32::OLE->new('Word.Application', 'Quit');
$word->Documents->Open($path);
my $new_name = $path;

# Get a handle on the document we just opened,
# so we don't need to use ActiveDocument:
my $doc = $word->Documents($path);

# Set new extension
$new_name =~ s!\.fin$!.rtf!i;

$doc->SaveAs({ 
  FileName => $new_name, 
  FileFormat => wdFormatRTF });

# Either one of these should work:

# Close the document
$doc->Close();
undef $doc;

# Close Winword
$word->Quit();
undef $word;