use Digest::MD5;
my $hash = Digest::MD5->new();
$hash->addfile(*STDIN);
print $hash->hexdigest()."\n";