$ perl -e 'use Digest::SHA qw(sha512_hex); print sha512_hex("hoge"),"\n";'
permlink
Powered by chalow version 1.0.50