use strict;
use warnings;
use PPM;
use PPM::Repositories;

#
# Print out all *Active* repositories for perl 5.8.x
#
for my $rep ( keys %Repositories )
   {
   next unless $Repositories{$rep}->{Active};
   next unless grep { $_ == 5.8 } @{ $Repositories{$rep}->{PerlV} };
   
   print("rep add $rep $Repositories{$rep}->{location}\n");
   }