print Digest::MD5->new->addfile($fh)->hexdigest;