#!/usr/bin/perl

use strict; use warnings; use 5.024; use utf8;

use Crypt::Passwd::XS;

my $salt = "SalzIstToll";
my $data = "test";

my @types = (
	"", 
	'$1$',
	'$2$', 
	'$2a$', 
	'$2b$', 
	'$2x$', 
	'$2y$',
	'$3$',
	'$5$',
	'$6$',
	'$y$'
);
foreach my $t (@types) {
	print "Typ $t: ", Crypt::Passwd::XS::crypt( $data, "$t" . $salt ), "\n";
}