1 files changed, 17 insertions, 0 deletions
diff --git a/util/tab_num.pl b/util/tab_num.pl
new file mode 100755
index 000000000000..a81ed0edc245
--- /dev/null
+++ b/util/tab_num.pl
@@ -0,0 +1,17 @@
+#!/usr/local/bin/perl
+
+$num=1;
+$width=40;
+
+while (<>)
+	{
+	chop;
+
+	$i=length($_);
+
+	$n=$width-$i;
+	$i=int(($n+7)/8);
+	print $_.("\t" x $i).$num."\n";
+	$num++;
+	}
+