#read
    tie %test, "NDBM_File", 'mtime', O_RDWR|O_EXCL, 0644;
    foreach  (keys %test) {
        print "$_: $test{$_}\n";
    }
    untie %test;