use PPM;
use Data::Dumper;
my $lookFor = qr/Acme/i;
my $rep = q[http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/PPMServer];
my(undef,$packagelist) = PPM::RepositoryPackages(location=>$rep);

#warn Dumper($ppp);

for my $p( grep /^$lookFor/, @$packagelist ) {
    print "Do you want to install $p? [y/N] ";
    my $a = <STDIN>;
    if($a =~ /y/i) {
       PPM::InstallPackage(package=> $p, location => $rep )
    }
}
__END__