You are the man!

Thank you guys for helping me solve this, below is the code that does exactly what I was looking for.

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

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