#!/usr/bin/perl -w

    use strict;
    use Cwd;
    use Win32::OLE;

    my $application = Win32::OLE->new("Excel.Application");
    my $workbook    = $application->Workbooks->Add;
    my $worksheet   = $workbook->Worksheets(1);


    my $range = $worksheet->Range("A1:A1");
    $worksheet->Hyperlinks->Add({ Anchor  => $range,
                                  Address => "http://www.perl.com/"});


    my $dir = cwd();
    $workbook->SaveAs($dir . '/link.xls');
    $workbook->Close;
[download]

--
John.