my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;});

my $Book = $Excel->Workbooks->Open(MYFILE, 1, 1);
my $Sheet = $Book->Worksheets("WORKSHEETNAME");
$Sheet->Activate();

my $value = $Sheet->Range("SOMECELL")->{Value};

##</code><code>##

my $value = $Sheet->Range("SOMECELL")->Text();

##</code><code>##

if (ref($value)) {
  print $value->Type();
}