diff --git a/bin/sup-all b/bin/sup-all
new file mode 100755
index 0000000..1de9e8e
--- /dev/null
+++ b/bin/sup-all
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use strict;
+use Cwd;
+
+my $cwd = getcwd;
+my @repos;
+
+for my $dir (<*/>) {
+    push @repos, $dir if -e "$dir/.svn";
+}
+
+for my $repo (@repos) {
+    chdir $repo;
+    print "svn upping:  $repo\n";
+    system("svn up");
+    chdir $cwd;
+}
+
+print "No svn repos found\n" unless @repos;