if ($read) { my $cvsfilecount = 0; print ("\nCCRUtil: Reading configuration\n\n"); my $fh2 = new IO::File("; foreach my $f (@state2) { chomp($f); dprint( "Checking out project file: $f\n"); `cvs co $f`; $cvsfilecount++ } print "\nCCRUtil complete: $cvsfilecount files added from CVS.\n"; }