print "CVSROOT is ", $cvs->cvsroot, "\n";
print "Workdir is ", $cvs->working_directory, "\n";
print "Error is ", $cvs->error, "\n";
print "The CVS knows the following modules:\n";
for my $module ($cvs->modules) {
    print "\t$module\n";
};