initial commit

1 files changed, 15 insertions, 0 deletions

diff --git a/random.pl b/random.pl
new file mode 100644
index 0000000..90998d5
--- /dev/null
+++ b/random.pl
@@ -0,0 +1,15 @@
+#! /usr/bin/perl
+
+$count = 10;
+$size = rand(1000);
+
+for ($i = 0; $i < $count; ++$i) {
+    open OUT, "> t$i" or die;
+    for ($j = 0; $j < $size; ++$j) {
+	printf OUT "%c", rand(256);
+    }
+    close OUT;
+    $cmd = "./rc t$i";
+    print $cmd, "\n";
+    system $cmd;
+}