@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+my $top_level = "/Users/swatson/Repos/git_migration/";
+my @dirs = split("\n", `ls -d */`);
+foreach my $dir (@dirs) {
+ #print("$dir\n");
+ $dir =~ s/\/$//g;
+ my $output = `git -C $dir remote set-url origin ssh://git\@git.spwbk.site:2222/swatson/$dir.git`;
+ print "$output\n";
+ $output = `git -C $dir remote -v`;
+ print $output;
+}