Select Code to Download

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