Select Code to Download

#!/usr/bin/env perl -l

...

sub pw_ok  { print "Accept: $_[0]" }
sub pw_nok { print "Reject: $_[0]" }

Reject: 1234
Accept: 1243
...
Accept: 43ba21
Accept: fed43cba21
Reject: 765fed43cba21