use PPM;

my $ppd = shift;
my $dir = 'c:/inetpub/wwwroot/www.foo.com/';

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