#!/perl/bin/perl -w
use Win32::OLE qw(in with);
$Win32::OLE::Warn = 3;    # die on errors...
$Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');
$Book = $Excel->Workbooks->Open("c:/scripts/RBLCopy.xls");
$xlImport = $Book->Worksheets("Import");
$xlImport->Activate();
$Excel->{'Visible'} = 1;
my $cell= $xlImport->Cells(1,1)->{Value};

##</code><code>##

$Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');