your constant wdFormatHTML is in trouble here.

Actually you should do something like

my $constref = Win32::OLE::Const->Load($Word);
# and then...
$Document->SaveAs( { FileName => 'bb.htm',
     FileFormat => $constref->{wdFormatHTML}} );
[download]

Courage, the Cowardly Dog