From c8a77b86b4f8c91314222a8e12e6e37cf182ee10 Mon Sep 17 00:00:00 2001
From: Toby Goodwin <LibreSoftwareDesign@gmail.com>
Date: Mon, 1 Oct 2012 20:46:40 +0100
Subject: initial commit

---
 random.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 random.pl

(limited to 'random.pl')

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;
+}
-- 
cgit v1.2.3