my $word = Win32::OLE->new(["$IPAddress", 'Word.Application'])
  or $error = "$error Can't start Word";

$word->{'Visible'} = 1;

  my $doc =$word->Documents->Add 
    or $error ="$error Can't Add";