#! /usr/bin/perl

sub into {
	my $into = shift;

	opendir THIS,$into;
	for (grep !/^\./,readdir THIS) {
		next if $_ =~ /CHECKSUMS/i;
		if (-d "$into/$_") {
			into("$into/$_");	
		} else {
       			print `md5sum $into/$_`;
		}
	}
	closedir THIS;
}

into '.';
