my $password = password(5);
my $salt = 'Na';   # any two char string will do
my $encrypted = crypt( $password, $salt );
print "The encrypted version of $password is $encrypted\n";

print 'Gimmee the password: ';
chomp( my $answer = <> );
print check_password($answer) ? "OK" : "Wrong";

sub check_password {
    my $to_check = shift;
    # I would normally use return COND ? TRUE : FALSE;
    # like this
    # return (crypt( $to_check, $salt ) eq $encrypted) ? 1 : 0;
    # but here it is in baby perl
    if ( crypt( $to_check, $salt ) eq $encrypted ) {
      return 1
    } else {
      return 0
    }
}

sub password{
    my $s = shift;
    srand( $s ^ time ^ $$ );
    @c = split //, "bcdfghjklmnpqrstvwxyz";
    @v = split //, "aeiou";
    my $password = '';
    $password .= $c[int(rand(21))] .$v[int(rand(5))] for 1..4;
  return $password;
}