diff --git a/utils/dirsymlink.pl b/utils/dirsymlink.pl
new file mode 100755
index 000000000..c7f4dd22b
--- /dev/null
+++ b/utils/dirsymlink.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my ($shadowdir, @keepdirs) = @ARGV;
+
+mkdir($shadowdir);
+
+system(qq#rm -f "$shadowdir"/*#);
+
+for my $k(@keepdirs) {
+  unlink("$shadowdir/$k");
+  mkdir("$shadowdir/$k");
+}
+
+system(qq#ln -rs .* * "$shadowdir"#);
+
+