use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

$Kount = 0;

$Win32::OLE::Warn = 3;                                # die on errors...

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  # get already active Excel
                                                      # application or open new

my $Book = $Excel->Workbooks->Open('c:\lee\Test.xls'); # open Excel file

my $Sheet = $Book->Worksheets(1);                     	# select worksheet number 1
# $Sheet->Range("i4:i4")->{'Value'};       # get the contents of the Address column

$hlv=$Sheet->Hyperlinks(1)->Address;


print "hlv=$hlv \n";




$Book->Close;