#! perl -w

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Variant;    #   for variant arrays

my $ccSelection_Path = 0;       #   $ccSelection_ values from the WEB
my $ccSelection_SubTreeRoot = 1;
my $ccSelection_Directory = 2;
my $ccSelection_AllInVOB = 3;
my $ccSelection_AllVOBs = 4;

# Connect to the top-level ClearCase object 
my $cc = Win32::OLE->new('ClearCase.Application')
    or die "Could not create Application object\n";

my $COQuery;
$COQuery = $cc->CreateCheckedOutFileQuery;

$COQuery->{PathArray} = ["cc_views/heller_int_view/Pre_Funding/CustomE!"];
$COQuery->{User} =  "heller";
$COQuery->{PathSelects} = $ccSelection_AllInVOB;

my @CheckedOutFiles;
@CheckedOutFiles = $COQuery->Apply(); #<--- the problem.

my $count;
$count = @CheckedOutFiles->Count();