Select Code to Download

#!/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 ;