use PPM;

print "Content-type: text/html\n\n";

BEGIN {
    use CGI::Carp qw(carpout);
    carpout(\*LOGGY) if open(LOGGY,'>>'.__FILE__.'.err.log');
}

my $ppd = 'd:/html/users/shrumnet/html/cgi-bin/modules/DBI.ppd';
my $dir = 'd:/html/users/shrumnet/html/cgi-bin/library';

print "Installing [<b>$ppd</b>] to [<b>$dir</b>]";

PPM::InstallPackage(
	package => $ppd,
	root    => $dir,
);