#!/usr/bin/perl -w
#
#
#use diagnostics;
#use strict;
use File::Find;
use File::Path;
use Digest::MD5;
#
# Initialization
#
my @DBFiles=();
my $MD5=0;
#$size=0;
#
# Get the files
#
find(\&subfiles, ".");
sub subfiles {
-f and push(@DBFiles, $File::Find::name);
}


foreach $file (@DBFiles) {
	@file_info = stat($file);
	$MD5 = calc_md5($file);
	print "$MD5|$file|$file_info[7]| |  \n";
}

sub calc_md5($)
{
    my ($filename) = @_;

    open(FILE, "<$filename") or die "Unable to open file $filename: $!";
    binmode(FILE);
    my $MD5 = Digest::MD5->new->addfile(*FILE)->hexdigest;
    close(FILE);
    return $MD5;
}
exit;