$ perl -e '
> use Digest::MD5;
> $ctx = Digest::MD5->new();
> open FILE, q{<}, q{xxx} or die $!;
> $ctx->addfile( *FILE );
> $digest = print $ctx->hexdigest(), qq{\n};
> print qq{-->$digest<--\n};'
cc88f0aa880a1b97b84bfd0ebc420fa7
-->1<--
$