use PPM::Repositories;

for ( keys %Repositories )
{
	print `ppm repository add $_ $Repositories{$_}->{location}`;
}