... use Digest::SHA qw(sha1 sha1_hex sha1_base64); ... $sig = sha1_hex($base_string); ...