sub setAgeHP {
	my %defaults = (qw(mintm -1 expwarn -1 lftm -1 acctexp -1 exptm -1 llog -1 bootpw NO umaxlntr -1 id null))
	my %args = (%defaults, @_);
	my $return;
	
	if ($args{'pwdage'} == 30) {
	    $hpmod="/usr/lbin/modprpw -k -m ";
	}
	else {
	    $hpmod="/usr/lbin/modprpw -m ";
	}
	
	print $rsh "$hpmod $args{id};echo \$?\r";
	($match_num,$error,$match,$before,$after)=
            $rsh->expect($TIME_OUT,
                 '-re', '^[1-9][0-9][0-9]\r?$'
                ,'-re', '^[1-9][0-9]*\r?$'
                ,'-re', '(?s).*\r\n0\r?$');
	    if ($match_num == 3) {
		$result = "SUCCESSFUL";
	    }
	    else {
		$result = "FAILED with exit code $match";
	    }
	return $result;
    }