#!/usr/bin/perl -w

use strict;
<br>use Win32::OLE qw(in with);
<br>use Win32::OLE::Const 'Microsoft Excel';
<br>
<br>$Win32::OLE::Warn = 3;                                # die on errors...

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

<br># open Excel file
<br>my $Book = $Excel->Workbooks->Open("C:/Documents and Settings/rto5u/My Documents/CV.xls"); 

<br># select worksheet number 1 (you can also select a worksheet by name)
<br>my $Sheet = $Book->Worksheets(1);

<br>foreach my $row (2..4)
<br>{
 <br>foreach my $col (1)
 <br>{
  <br># skip empty cells
  next unless defined $Sheet->Cells($row,$col)->{'Value'};

 <br># print out the contents of a cell  
 <br> print "At ($row, $col) the value is: \n",
  <br> $Sheet->Cells($row,$col)->{'Value'};
<br>	  print "\n";
	 
          
 <br>}
<br>}

<br>print "\n";
<br># clean up after ourselves
<br>$Book->Close;