sub get_md5 
{
 md5_hex("$secret" . "$_")
};

##</code><code>##

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