#!/usr/local/bin/perl -W

use Digest::SHA3 qw(sha3_0_base64);

print "String: ";
chomp ( $s = <STDIN> );

$digest = sha3_0_base64($s);

print "$digest\n";

exit 0;

__END__

El modo 0 de sha3 produce 4096 bits, lo cual es bárbaramente suficiente
  para cualquier tipo de clave a largo plazo. El sha3 es de 2012 pero
  tarda en implementarse porque no está pensado para ordenadores de menos
  de 64 bits, y de hecho próximos módulos no garantizan la compatibilidad. 
  Lo cual es una pena porque un ordenador de 32 bits que use long doubles
  es más preciso que uno de 64 bits descuidado.