#!/user/bin/perl
use Digest::MD5 ;
my $md5 = Digest::MD5->new;
$md5->reset;
$md5->addfile(\*STDIN);
print $md5->hexdigest , "\n" ;
$md5->reset;
$md5->add("jhondoe:one_real:jh@ondoe");
print $md5->hexdigest , "\n" ;

##</code><code>##

echo -n "jhondoe:one_real:jh@ondoe" | perl computedigest.pl
10933255f493361481c580259b2a1ab5
f483e2cea20ce9d5891abd77c66a01a6