Well, you just canīt use return if you are not inside a subroutine. Change your code to

if ($read) {
    my $cvsfilecount = 0;
    print ("\nCCRUtil: Reading configuration\n\n");
    my $fh2 = new IO::File("<ccrConfig.cfg");
    if ($fh2)
    {
        my @state2 = <$fh2>;
        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";
    }
}
[download]