#!/usr/bin/perl

    use strict;
    use warnings;

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

    my $application = Win32::OLE->new("Excel.Application");
    my $workbook    = $application->Workbooks->Open("c:/temp/test.xls");
    my $worksheet   = $workbook->Worksheets(1);
    my $range       = $worksheet->Range("A1:A8");

    my $count = $application->WorksheetFunction->CountIf( $range, "2" );

    print $count, "\n";

    __END__