#!/usr/bin/perl -w
use CGI::Carp qw( fatalsToBrowser );
use CGI qw(:all);
use CPAN;
use Data::Dumper;

print header;

if( exists $ENV{QUERY_STRING} and $ENV{QUERY_STRING} =~ /runit/ ) {

    print "installing Pod::Stripper, check back in a few minutes";

    exec($^X, '-MCPAN', "-e'install(qq,Pod::Stripper,)'")
    or print "couldn't exec";
    
} else {
    print pre(escapeHTML(Dumper \%CPAN::Config));
    # to make sure it's what you want
}