for my $dist (sort keys %dists) {
  my $lowered = lc($dist);
  mkdir $lowered;
  chdir $lowered;
  system qq(git init);
  chdir '..';
  for my $release (sort @{ $dists{$dist} } ) {
    open my $SH, "| sh" or die $!;

    print $SH <<EOC;
tar zxvf $dist-$release.tar.gz
rsync -avv $dist-$release/ $lowered
chdir $lowered
mv .cvsignore .gitignore
git diff
git add .
git commit -a -m'$release release
EOC

  }
}