#!/usr/local/bin/perl -w

use Data::Dumper;
use Cvs;

my $repository = "prod.nyc.com:/proj/ops/repository";

my $dir        = "/tmp/";

my $cvs_obj = new Cvs (
                       $dir,
                       cvsroot => $repository,
                       "remote-shell" => 'rsh',
                       "debug" => 1,
                      ) or die $Cvs::ERROR;
my $res = $cvs_obj->checkout(".");
print Dumper($res);
print "Successfully initialized cvs object for repository $repository and checked out in $dir\n";

##</code><code>##

       $nfound = select(
            $self->{ROUT} = $self->{RIN},
            $self->{WOUT} = $self->{WIN},
            $self->{EOUT} = $self->{EIN},
            $timeout
                         ) ;