#!/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" ;