#!/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;

}