use strict;
use Cvs;


my $cvs = Cvs->new('workdir' => '/projects/millerb/SR/vhdl'
                   ,'cvsroot'=>':pserver:millerb@172.20.175.10:/hwcvs'
                   ,'password' => '********'
                   ) or die $Cvs::ERROR;
print "CVS ERROR ($Cvs::ERROR)\n";
print "CVS OBJ $cvs\n";
print "-----GETTING STATUS----\n";
my $status_obj = $cvs->status('common/scripts/release/regress.pl');
print "-----COMPLETED STATUS----\n";
print "status_obj $status_obj\n";
my $status = $status_obj->status();
print "$status_obj Status $status\n";