#!/usr/bin/env perl

# This perl script generates MD5 Checksums
# Jason Powers
# 16 MAY 2006

use 5.8.6;
use strict;
use IO::File;
use Getopt::Long;
use Digest::MD5;

my $myFile = $ARGV[0];
my $md5 = Digest::MD5->new;
my $check = 1;

open(FILE, $myFile) or die �Couldn�t open $myFile for md5 checksum generation.�;
binmode(FILE);
my $sum = $md5->addfile(*FILE)->hexdigest;
close FILE;

print “
—————————-
”;
print “MD5 Checksum of $myFile:
”;
print “$sum
”;
print “
—————————-
”;