Select Code to Download

print "Preparing to install $name from CPAN\n";

...
    $obj->uptodate 
        or die "Installation of $name appears to have failed";
}