$repository` unless (/activestate/i); }		
		}
	}
}

sub add_repositories {
	for ( keys %Repositories )
	{
		my $repository = $_;
		my $location = $Repositories{$_}->{location};
		my $domain = trim_domain($location);
	
		my $p = Net::Ping->new('icmp');
		if ( $p->ping($domain) ) {
			print "$repository is alive.\n";