unless (open (PPM, "ppm install My::Module 2>&1 |")){
    print "Error in executing ppm: $!\n";
  }
  else {
    print "The result was: <HR>\n";
    print <PPM>;
    close (PPM);
  }