https://git.spwbk.site/swatson/misc-scripts/raw/master/migrate_to_gogs.pl
___________________________________
#!/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;

}