I could not get your code to give me the last column,
but this should work
use Win32::OLE;
$Win32::OLE::Warn = 3; # die ( UGLY ) on errors...
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open("C:\\temp\\foo.xls");
my $Sheet = $Book->Worksheets(1); # select worksheet number 1
$date = $Sheet->UsedRange->End(xlToRight)->Cells(1,1)->{'Value'};
print "$date\n";
at least, that is how I have accessed data in an Excel sheet before.
HTH, --traveler
