Select Code to Download

use strict;
use Cvs;
...
        cvsroot => ':pserver:nikhil@appollo:2401:/usr/local/cvs',
        password => 'nikhil'
      ) or die $Cvs::ERROR;

print "CVSROOT is ", $cvs->cvsroot, "\n";
print "Workdir is ", $cvs->working_directory, "\n";
...
for my $module ($cvs->modules) {
    print "\t$module\n";
};