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

##</code><code>##

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