sub calc_disk
{
	
	my $md5_disk = undef;
		open(FILE, "/tmp/dl_mods/$filename") or die "md5sum cannot find  /tmp/dl_mods/$filename !!";
		binmode(FILE);
$md5_disk = Digest::MD5->new->addfile(*FILE)->hexdigest,"\n";
	

	if ($@) {
		$errormessage = $@;
		$response_code = 0;

	return $response_code;
	}
	return ($md5_disk);
}