Select Code to Download

 
use strict;
use warnings;
...
        print "OK: $pw\n"
    }
}

ERROR: AAA is is too short
ERROR: AAAAAAA is is too short
...
ERROR: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa is too long
OK: aaaaaAAA1:
OK: aaaaaaaaaaaaaaaaaaaaaaaa