Add renamer.pl to rename files

Signed-off-by: Colin McCabe <cmccabe@alumni.cmu.edu>

diff --git a/renamer.pl b/renamer.pl
new file mode 100755 (executable)
index 0000000..93a0d37
--- /dev/null
+++ b/renamer.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+$op = shift or die $help;
+chomp(@ARGV = <STDIN>) unless @ARGV;
+for (@ARGV) {
+    $was = $_;
+    eval $op;
+    die $@ if $@;
+    rename($was,$_) unless $was eq $_;
+}