Help for this page
use Digest::MD5; $ctx = Digest::MD5->new;
use MD5; $ctx = Digest::Perl::MD5->new;