use Crypt::Passwd::XS;

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

print Crypt::Passwd::XS::crypt($data,'$5$' . $salt);