#!/usr/bin/perl
use strict;
use warnings;
use Win32::OLE;

my $word = Win32::OLE->new('Word.Application') or die $!;
$word->{'Visible'} = 1;
my $document = $word->Documents->Add;
my $selection = $word->Selection;
$selection->TypeText("Click here");
my $range = $word->ActiveDocument->Content; 
$document->Hyperlinks->Add({
							Anchor => $range,
							Address => "http://www.perlmonks.org"
							});