Help for this page
#!/usr/bin/perl # ... } 1 ;
#!/usr/bin/perl ... is($ok,passcheck($username,$good,@userinfo),"$good is good") ; isnt($ok,passcheck($username,$_,@userinfo),"$_ is bad") foreach @passw +ords ;