use strict;
use Cvs;

my $cvs = Cvs->new(
        './my_workdir',
        cvsroot => ':pserver:nikhil@appollo:2401:/usr/local/cvs',
        password => 'nikhil'
      ) or die $Cvs::ERROR;

##</code><code>##

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";
};