Select Code to Download

#!/usr/local/bin/perl -w
...
my $res = $cvs_obj->checkout(".");
print Dumper($res);
print "Successfully initialized cvs object for repository $repository 
+and checked out in $dir\n";

       $nfound = select(
            $self->{ROUT} = $self->{RIN},
...
            $timeout
                         ) ;