# testing Functions
sub NDBM_test {
	my $date = MakeDate();
	#write
	my %test;
	tie %test, "NDBM_File", 'test', O_RDWR|O_CREAT|O_EXCL, 0644;
	foreach $number (1...10) {
		$test{$number} = $date;
	}
	untie %test;
	#read
	tie %test, "NDBM_File", 'test', O_RDWR|O_EXCL, 0644;
	foreach $number (1...10) {
		print "$number: $test{$number}\n";
	}
	untie %test;
}

##</code><code>##

1: 20030828
2: 20030828
3: 20030828
4: 20030828
5: 20030828
6: 20030828
7: 20030828
8: 20030828
9: 20030828
10: 20030828

##</code><code>##

2003082810200308289200308288200308287200308286200308285200308284200308283200308282200308281