...
use Digest::MD5 qw(md5_hex);
...
$sig = md5_hex(encode('utf8', $base_string));
...