use strict; 

use Win32::OLE; 
use Win32::OLE::Const 'Microsoft Word'; 

# imports word constants like wdFormtaDosTxtLineBreaks 

my $Word = Win32::OLE->new( 'Word.Application', 'Quit' ); 
$Word->{'Visible'} = 1; 

# second argument tells OLE what to do if everything goes tits up 

my $Document = $Word->Documents->Open( "f:\\aa.doc" ); 
$Document->SaveAs( { FileName => 'bb.htm', FileFormat => wdFormatHTML } ); 

# NOTE!!! wdFormatDOSTextLineBreaks, wdFormatHTML, etc., are 
#constants, not strings, so don't quote them! 

$Document->Close(); 
$Word->Quit(); 
exit( 0 );