An example on how to use bcrypt to securely hash passwords in Perl

bcrypt_password_example.pl

use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);
use Data::Entropy::Algorithms qw(rand_bits);

my $bcrypt_cost = 12;

sub encrypt_password {
  my $password = shift;
  my $salt = en_base64(rand_bits(16*8));
  my $settings = '$2a'.'$'.$bcrypt_cost.'$'.$salt;
  return bcrypt($password, $settings);
}

sub check_password {
  my $password = shift;
  my $hash = shift;
  
  if ($hash eq bcrypt($password, $hash)) {
    return 1;
  } else {
    return 0;
  }
}

my $hash = encrypt_password('test');

print check_password('hello', $hash);

print check_password('test', $hash);