my $search = $cgi->param("query").'%';
utf8::decode($search);
# database calls here...
##</code><code>##

my $search = $cgi->param("query").'%';
use Digest::MD5 qw(md5_hex);
utf8::decode($search);
md5_hex($search);
# database calls here...