--- perrin-bench.pl     Tue Mar 18 11:41:42 2003
+++ perrin-bench2.pl    Tue Mar 18 12:00:06 2003
@@ -28,9 +28,9 @@
 sub read_file {
   my $key = shift;
   my $file = "$file_dir/$key";
+  my $value;
   open(FH, '<', $file) or die $!;
-  local $/;
-  my $value = <FH>;
+  read FH, $value, (stat FH)[7];
   close FH;
   return $value;
 }
@@ -52,20 +52,22 @@

     'berkeley write' => sub {
       for (0..1000) {
-       $db_obj->STORE($_, $_ x 8000);
+       $db_obj->db_put($_, $_ x 8000);
       }
     },
            });

 cmpthese(10, {
     'file read' => sub {
+      my $test;
       for (0..1000) {
-       read_file($_);
+       $test = read_file($_);
       }
     },
     'berkeley read' => sub {
+      my $test;
       for (0..1000) {
-       $db_obj->FETCH($_);
+       $db_obj->db_get($_,$test);
       }
     },
             });