I want to save as word file to xml file. but the xml file differs from manual save as XML file option from word. Can anybody suggest to do this?

use strict;
use warnings;
use Cwd;
    use Win32::OLE::Const 'Microsoft Word';
    my $Word = Win32::OLE->new('Word.Application');
    $Word->{'Visible'} = 1;
    $Word->{DisplayAlerts} = 0;

my $folderpath=getcwd()."/";
opendir(RDIR,"$folderpath");
for my $xmlfile (readdir(RDIR))
{
  if ($xmlfile=~/\.doc$/)
  {
     $xmlfile=$folderpath.$xmlfile;
     my $xmlfile1=$xmlfile;
     $xmlfile1=~s/\.doc$/\.xml/;
    my $doc = $Word->Documents->Open("$xmlfile");
    $Word->ActiveDocument->SaveAs({FileName=>"$xmlfile1"});
    $Word->{ActiveDocument}->Close;
    $doc->Close;
  }

}
    $Word->Close;
[download]