sub SunPwdAging {
	my %defaults = (qw(n 1 w 5 x 60))
	my %args = (%defaults, @_);
	my $result;
....