#!/usr/bin/perl

printf("crypt => '%s'\n", crypt("titok", '$6$sosososo$'));