#!/usr/bin/perl
#
# Author: Peter Keel, 16.01.2003
#
# License: Free, Public Domain. 
# 
# Usage: Its a snippet, to be built into your own programs.
# 	 $md5sum = md5file("/directory/filename");
# 

use Digest::MD5;

sub md5file () {
	open(IN_FILE,"<@_") || die "Cannot open @_ input\n";
	binmode(IN_FILE);
	my $md5digest = Digest::MD5->new->addfile(*IN_FILE)->hexdigest , "\n";
	close IN_FILE;
	return $md5digest;
}