use strict;
use warnings;
use Win32;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn =2;           

my $excel = Win32::OLE->new('Excel.Application', 'Quit');  
$excel->{Visible} = 1;

my $xls = $excel->Workbooks->Open('c:/work/report1.xls'); 

foreach my $sheet ( in $xls->Worksheets ) 
{
	my $current_sheet = $sheet->Name, $/;
	print "Processing => $current_sheet\n"; 
	
}

##</code><code>##


Useless use of a variable in void context at C:\Perl\tool6.pl line 16.
Processing => Midrange Servers
Processing => Add-Del April 2005
Processing => Add-Del FEB 2005
Processing => Add-Del JAN 2005
Processing => Add-Del DEC 2004
Processing => Add-Del NOV 2004
Processing => Add-Del OCT 2004
Processing => Add-Del Sep 2004