Index: /trunk/Nebulous-Server/scripts/bench_test.pl
===================================================================
--- /trunk/Nebulous-Server/scripts/bench_test.pl	(revision 3013)
+++ /trunk/Nebulous-Server/scripts/bench_test.pl	(revision 3014)
@@ -5,6 +5,6 @@
 
 use lib "./lib";
-use Benchmark qw( cmpthese );
 
+use Benchmark qw( timethese );
 use PS::IPP::IData::Client;
 
@@ -13,16 +13,13 @@
 );
 
-my $key = "foobarbazbongbungbutufu";
-cmpthese( 10, {
-        'Image Server' => sub {
-            {
-                my $fh = $idata->create( $key );
-                close $fh;
-                $idata->unlock( $key, 'write' );
-            }
+my $key = shift || 'foobar';
 
+timethese( -10,
+    {
+        'create/delete' => sub {
+            my $fh = $idata->create( $key );
+            close $fh;
             $idata->delete( $key );
         },
-    },
-    'all',
+    }
 );
Index: /trunk/Nebulous/scripts/bench_test.pl
===================================================================
--- /trunk/Nebulous/scripts/bench_test.pl	(revision 3013)
+++ /trunk/Nebulous/scripts/bench_test.pl	(revision 3014)
@@ -5,6 +5,6 @@
 
 use lib "./lib";
-use Benchmark qw( cmpthese );
 
+use Benchmark qw( timethese );
 use PS::IPP::IData::Client;
 
@@ -13,16 +13,13 @@
 );
 
-my $key = "foobarbazbongbungbutufu";
-cmpthese( 10, {
-        'Image Server' => sub {
-            {
-                my $fh = $idata->create( $key );
-                close $fh;
-                $idata->unlock( $key, 'write' );
-            }
+my $key = shift || 'foobar';
 
+timethese( -10,
+    {
+        'create/delete' => sub {
+            my $fh = $idata->create( $key );
+            close $fh;
             $idata->delete( $key );
         },
-    },
-    'all',
+    }
 );