my $cvs = Cvs->new('workdir' => '/projects/millerb/SR/vhdl'
                   ,'cvsroot'=>':pserver:millerb@172.20.175.10:/hwcvs'
                   ,'password' => '********'
                   ) or die $Cvs::ERROR;

TO

my $cvs = Cvs->new('/projects/millerb/SR/vhdl'
                   ,'cvsroot'=>':pserver:millerb@172.20.175.10:/hwcvs'
                   ) or die $Cvs::ERROR;