#!/usr/local/bin/perl
# MD5 Digest for file
# Cvs info:
# $Id: md5.pl,v 1.1 1999/02/12 08:24:19 demiurg Exp $
#
use Digest::MD5;

 open (FILE, "$ARGV[0]") || die "Usage md5.pl <file>";
 binmode(FILE);
 print Digest::MD5->new->addfile(*FILE)->hexdigest."\n";
 close (FILE);