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"; } else { warn "could not create filehandle: $!\n"; } }