addfile(io_handle)
Reads io_handle until end-of-file and
appends the content to the message for which you calculate the
digest. addfile returns the Digest object itself.
For example:
open(FILE, $file) or ...
print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";
close(FILE);