my $filename= shift @ARGV;
 print "processing [$filename]\n";
 my $Doc= Win32::OLE->GetObject ($filename, sub {$_[0]->Close()} );
 print "** $Doc  $Doc->{FullName}\n";

 $Doc->SaveAs ('F:\\dev\\experiment\\ScanWord\\foobar.doc');