use MD5;
$ctx = Digest::Perl::MD5->new;