#!/usr/bin/env perl
use strict;
use warnings;

# a non-random salt == 'salt'

#SHA256
print crypt("secret",'$5$salt');
print "\n";

#SHA512
print crypt("secret",'$66salt');
print "\n";
# Oops, security gone, that is not what I meant

# I meant this
print crypt("secret",'$6$salt');