diff --git a/dev/adminy/movey_requires.pl b/dev/adminy/movey_requires.pl
new file mode 100644
index 0000000000..885735b32c
--- /dev/null
+++ b/dev/adminy/movey_requires.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+
+while(<STDIN>) {
+	my $line = $_;
+
+	if($line =~ /require '(.*?)'/) {
+		my $required = $1;
+
+		my @pieces = split('/', $required);
+		map { $_ = old_to_new($_) } @pieces;
+		my $new = join('/', @pieces);
+
+		print "$required -> $new\n";
+	}
+}
+
+sub old_to_new {
+	my $name = shift;
+
+	$name =~ s/^([A-Z])/lc($1)/ge;
+	$name =~ s/([A-Z])/"_" . lc($1)/ge;
+
+	return($name);
+}