####################################
##           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";
        }
}
    }
[download]

$ Global symbol "$logoutput" requires explicit package name at ccrutil
+.pl line 5
6.
Global symbol "$logoutput" requires explicit package name at ccrutil.p
+l line 57.

syntax error at ccrutil.pl line 59, near "else"
syntax error at ccrutil.pl line 63, near "}"
Execution of ccrutil.pl aborted due to compilation errors.
[download]

I am not sure what's causing the "Global symbol" error, but it's not in the code you've shown. The syntax error is because you forgot a curly bracket to end the if block.

There is also a logic error, though. You are using eq to check for string equality, but this checks if one string matches another string exactly. So "hi" and "hi " would not match with eq.

You probably want a pattern match, instead. This is covered nicely in perlretut, but here's a very quick example:

  foreach my $str ("one", "two", "three") {
      if ($str =~ /^t/) {
          print "'$str' starts with 't'\n";
      } else {
          print "'$str' does not start with 't'\n";
      }
  }
[download]