use Digest;
my $sha512 = Digest->new("SHA-512");
$sha512->add("$password");
my $digest = $sha512->digest;