Select Code to Download

use strict;
use warnings;
...
        :                                             length >=  8
    ;
}

sub is_pw_valid {
    my $password = $_[0];
...
   my $is_OK = ( length($password) >= $min_length );
   return $is_OK;
}