sub get_md5 
{
 my($my_secret, $data) = @_;
 md5_hex($my_secret . $data);
};