use Digest::file qw(digest_file_hex);

my $file = "/some/path/to/file";
my $md5sum = digest_file_hex($file, "MD5");