use Cvs;

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

    $cvs->checkout('viewer');

   

    my $status = $cvs->status('file');
    if($status->is_modified)
    {
        $cvs->commit('file');
    }

    $cvs->release({delete_after => 1});
    $cvs->logout();