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