####################################
##           READ LOOP            ##
####################################
if ($read) {
    my $fh2 = new IO::File("<ccrConfig.cfg");
    return unless($fh2);
    
    my @state2 = <$fh2>;
    my $state2 = join("", @state2);
    
    foreach my $f (@state2) {
        print "File is $f\n"; 
        my $logoutput = qx(cvs log $f);
        if ($logoutput eq "RCS") {
            `cvs co $f`;
       else {
            print "File $f is not in CVS, skipping\n";
        }
}
    }