my $user = "admin";
my $password = "hunter2";

sub rnd_salt { local $/ = \16; open my $fh, '</dev/urandom'; scalar <$fh> }

use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);

my $param = '$2a$05$' . en_base64(rnd_salt());
my $pass = bcrypt($password, $param);
$pass =~ s/^\$2a/\$2y/;

print "$user:$pass";