#!perl
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

$Win32::OLE::Warn = 3; # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
  || Win32::OLE->new('Excel.Application', 'Quit'); 

my $book = $Excel->Workbooks->Open('25.xls');
my $sheet = $book->Worksheets('Test1');

# print all 
for my $shape ( in $sheet->Shapes ){
  print $shape->Name.' = ';
  print $shape->TextFrame2->TextRange->Text."\n";
}

# print one
print $sheet->Shapes('TextBox 1')->TextFrame2->TextRange->Text."\n";
[download]