sub SUNPwdAging {

      my $loginid	= shift;
      my $pwminlife	= shift;
      my $pwmaxlife	= shift;
      my $pwdwarn	= shift;
      my $command;
      my $match_num;
      my $error;
      my $match;
      my $before;
      my $after;
      my $passwd	= "/usr/bin/passwd";
      my $options	= "-n $pwminlife -x $pwmaxlife -w $pwdwarn";

      # Define full command

      $command = "$passwd $options $loginid";

      # Set the Aging

      $Login::rsh->clear_accum();
      print $Login::rsh "$command\; echo \$?\r";
      ($match_num,$error,$match,$before,$after)=
                $Login::rsh->expect($Login::TIME_OUT,
	                    '-re', '(?s).*\r\n[1-7]\r?$' 
                         ,'-re', '(?s).*\r\n0\r?$'
                         );
      if ($match_num == 1) {
         $result = "FAILED:  ".$match.": ".$after;
      }
      elsif ($match_num == 2) {
         $result = "SUCCESSFUL";
      }
      elsif (defined($error)) {
         $result = "FAILED:  ".$error;
      }
      else {
         $result = "FAILED:  Unknown error occurred.";
      }
      return $result;
   }