use strict;
use MIME::Base64;
use Digest::SHA1  qw/sha1 sha1_hex sha1_base64/;
use Encode qw/encode decode/;

my $data = encode("UTF-16", 1234);
$data = sha1($data);
print encode_base64($data) . "\n";