my $word = Win32::OLE->CreateObject("Word.Application");
$word->{Visible} = 0;

my $doc = $word->Documents->Add;
my $selection = $word->Selection;
$selection -> TypeText("To Hyperlink");
$selection -> {'Style'} = "Title";
$selection -> TypeParagraph;