$mydoc->SaveAs( {FileName => "$xfn", FileFormat => wdFormatDocument} );