Help for this page
18: sub getPasswordStatus { 18: my ($login, $password) = @_; ... 35: } 36: return $Passwd; 37: }
if( defined $password && $password !~ /\?{7,7}/ )