#!/usr/bin/perl

$salt="AbCdefgh";
$jelszo="titok";

$shadow = crypt($jelszo, '$6$'.$salt);

print $shadow."\n";