#!/usr/bin/perl -w

    use strict;
    use Cwd;
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Excel';


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


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


    # Get current directory using Cwd.pm
    $workbook->SaveAs({FileName => cwd() . '/win32ole.xls'});
    $workbook->Close;

    __END__
[download]

--
John.