use Win32::OLE;

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

#ブックを読み取り専用で開く
$book = $excelApp->WorkBooks->Open($ARGV[0], 0, 1);

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

$book->Close();
$excelApp->Quit();