use Win32::OLE::Const 'Microsoft Excel';
use OLE;

#    printf "xlMarkerStyleDot = %d\n", xlMarkerStyleDot;

#    my $wd = Win32::OLE::Const->Load("Microsoft Word 8\\.0 Object Library");
#    foreach my $key (keys %$wd) {
#        printf "$key = %s\n", $wd->{$key};
#    }
    $Excel = CreateObject OLE 'Excel.Application'
               or warn "Couldn't create new instance of Excel App!!";

    $Excel->Workbooks->Open( 'd:\travail\admin\perl\test.xls' );

    my $Sheets = $Excel->Workbooks(1)->Worksheets;
    my $Enum = Win32::OLE::Enum->new($Sheets);
    my @Sheets = $Enum->All;
    print $Sheets;
    while (defined(my $Sheet = $Enum->Next)) 
    {
    	print $Sheet;
    }