% md5file - Use md5sum to compute md5 hash
% md5file :: string ~'filename' -> string ~'hash'.
function hash=md5file(fn)
	[rc,result]=system(sprintf('md5sum -b "%s"',fn));
	if rc==0
		sp=find(result==' ');
		hash=result(1:sp);
	else
		error('Error running md5sum');
	end
end
