my $file ="/file/to/hash";
my $md5 = Digest::MD5->new();

$md5->addfile($file);
$md5->add("seekrit passwerd"); # not the best choice for one, but ...

my $digest = $md5->digest;