create processes to benchmark ptql stuff

exp/fork.pl

@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+
+#create processes to benchmark ptql stuff
+
+my $num = shift || 10;
+my @kids;
+my $pid;
+
+for (my $i=0; $i<$num; $i++) {
+    if (!defined($pid = fork())) {
+	die "cannot fork: $!";
+    }
+    elsif ($pid) {
+	#parent
+	push @kids, $pid;
+    }
+    else {
+	#child
+	sleep 10 while 1;
+    }
+}
+
+for $pid (@kids) {
+    waitpid($pid, 0);
+}