#!/usr/bin/perl

use Digest::SHA qw(sha512_hex);

my $kivonat = sha512_hex("hello");

print "$kivonat\n";