use strict;
use Cvs;

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