#!/usr/bin/perl -w 

use strict;

use Digest::MD5;

my $file = shift || "/tmp/test";
open(FILE,$file) || die "Can't open '$file': $!";
binmode(FILE);

my $digest=Digest::MD5->new->addfile(*FILE)->hexdigest;
$digest=~s/(\w\w)/$1 /g;

print "#VMD5_DIGEST=$digest\n";