use Encode qw(encode_utf8);
use Digest::SHA1(sha1_base64);

my $encoded = sha1_base64(encode_utf8($string));