diff --git a/tools/cvsmgmt/bulk-copy.pl b/tools/cvsmgmt/bulk-copy.pl
new file mode 100755
index 00000000000..3cf4a186a0d
--- /dev/null
+++ b/tools/cvsmgmt/bulk-copy.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+while (my $line = <STDIN>) {
+    if ($line =~ /^(\S+)\s(\S+)$/) {
+        print "Copying $1 -> $2 ...\n";
+        system("/opt/cvsmgmt/copy-cvs-file.pl -d $1,v $2,v");
+    }
+} 
diff --git a/tools/cvsmgmt/verify-bulk-copy.pl b/tools/cvsmgmt/verify-bulk-copy.pl
new file mode 100755
index 00000000000..11d151536ef
--- /dev/null
+++ b/tools/cvsmgmt/verify-bulk-copy.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+while (my $line = <STDIN>) {
+    if ($line =~ /^(\S+)\s(\S+)$/) {
+        system("/opt/cvsmgmt/copy-cvs-file.pl -n $1,v $2,v");
+    }
+}