crypt-example.pl

#!/usr/bin/perl

use strict;
use warnings;

use Crypt::Passwd::XS;
use MIME::Base64;

my $password = <STDIN>;
chomp $password;

open(my $fh, '<', '/dev/urandom');
read($fh, my $buf, 12);
close($fh);

my $salt = '$6$' . MIME::Base64::encode_base64url($buf);
my $encoded = Crypt::Passwd::XS::crypt($password, $salt);

# Compare password for validation.
if ($encoded eq Crypt::Passwd::XS::crypt($password, $encoded)) {
    print "Password matches!\n";
}
else {
    print "Password does not match.\n";
}