use Digest::SHA 'sha512';

my $salt=rand(100);
my $testtext="abcdefg123";

my $crypt=sha512($testtext,$salt);

###########################################################
# das ganze testen:

print "OK\n" if(sha512($testtext,$salt) eq $crypt);