This works...in case anyone cares in the future

#Create filenames
$file =~ s/(.*)\.fin/$1/i; 
$file = $1; 
my $fileName = "$file.rtf"; 
my $fileName2 = "$file.doc"; 

my $doc = Win32::OLE->new('Word.Application', 'Quit');
$doc->Documents->Open($path);         
$doc->ActiveDocument->SaveAs({FileName => $fileName, FileFormat => wdF
+ormatRTF}); 
$doc->ActiveDocument->SaveAs({FileName=> $fileName2});
$doc->Run("psqtemplate");
$doc->ActiveDocument->Save;

#Close Winword
$doc->Quit(); 
undef $doc;
[download]