use strict;
use warnings FATAL => qw(all);
use PPM::Repositories;
for ( keys %Repositories )
{
	print `ppm repository add $_ $Repositories{$_}->{location}`;
}