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

print 'Hello World' . "\n";

print encode_base64(sha1('1234')) . "\n";

print decode("UCS-2BE", decode_base64('E59pyTwEJJao6VjsWTBmLGzMr78='));