Select Code to Download

sub SUNPwdAging {

...
      }
      return $result;
   }

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