Perl で Excel OLE オートメーション シート名を列挙する

use Win32::OLE;

Win32::OLE::CreateObject("Excel.Application", $objExcel) || die "fail! : $!";
$objExcel->{Visible}       = 1;
$objExcel->{DisplayAlerts} = 0; #警告メッセージをOFF

$objBook = $objExcel->WorkBooks->Open($ARGV[0], 0, 1);

foreach $i (1..$objBook->WorkSheets->Count)
{
    print $objBook->WorkSheets($i)->Name, "\n";
}

$objBook->Close();
$objExcel->Quit();