Index: /trunk/Nebulous/scripts/ptest.pl
===================================================================
--- /trunk/Nebulous/scripts/ptest.pl	(revision 23639)
+++ /trunk/Nebulous/scripts/ptest.pl	(revision 23640)
@@ -18,7 +18,9 @@
 $| = 1;
 
+my $prog_file = shift;
 my $key = shift || 'foobar';
 my $kids = shift || 1;
 
+require $prog_file;
 $key = "/tmp/" . $key;
 
@@ -72,41 +74,13 @@
     }
 
-#    select $sock;
-#    $| = 1;
-
-    # child
     my $fname = "${key}_$id";
 
     my $neb = Nebulous::Client::Bench->new(
 #    proxy   => 'http://localhost:80/nebulous'
-        proxy   => 'http://alala:80/nebulous',
-#        sock    => \*STDOUT,
+        proxy   => 'http://ipp008:80/nebulous'
+#        proxy   => 'http://alala:80/nebulous',
     );
 
-
-    while (1) {
-#    print $sock "$$ : i'm a little tea pot using key: $fname\n";
-        my $fh = $neb->open_create( $fname )
-            or child_die($sock, "can't create file $fname");
-        close $fh;
-
-        $fh = $neb->open( $fname, 'read' )
-            or child_die("can't open file");
-        close $fh;
-
-        $neb->lock( $fname, 'read' );
-        $neb->unlock( $fname, 'read' );
-        $neb->replicate( $fname );
-        $neb->cull( $fname );
-        $neb->find( $fname );
-        $neb->copy( $fname, $fname . "_copy" );
-        $neb->move( $fname, $fname . "_move" );
-        $neb->delete( $fname . "_copy" );
-        $neb->delete( $fname . "_move" );
-
-#    print $sock "$$ : all done!\n";
-    }
-
-    return 1;
+    test_prog($neb, $fname);
 }
 
Index: /trunk/Nebulous/scripts/test_prog_simple.pl
===================================================================
--- /trunk/Nebulous/scripts/test_prog_simple.pl	(revision 23640)
+++ /trunk/Nebulous/scripts/test_prog_simple.pl	(revision 23640)
@@ -0,0 +1,31 @@
+sub test_prog
+{
+    my ($neb, $key) = @_;
+
+    while (1) {
+#    print $sock "$$ : i'm a little tea pot using key: $key\n";
+        my $fh = $neb->open_create( $key )
+            or child_die($sock, "can't create file $key");
+        close $fh;
+
+        $fh = $neb->open( $key, 'read' )
+            or child_die("can't open file");
+        close $fh;
+
+        $neb->lock( $key, 'read' );
+        $neb->unlock( $key, 'read' );
+        $neb->replicate( $key );
+        $neb->cull( $key );
+        $neb->find( $key );
+        $neb->copy( $key, $key . "_copy" );
+        $neb->move( $key, $key . "_move" );
+        $neb->delete( $key . "_copy" );
+        $neb->delete( $key . "_move" );
+
+#    print $sock "$$ : all done!\n";
+    }
+
+    return 1;
+}
+
+1;