# 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;
}