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

$obj = CPAN::Shell->expandany( $name ) 
    or die "CPAN.pm couldn't locate $name";

if ( $obj->uptodate ) {
    print "$name is up to date\n";
    exit
}

if ( $force ) {
    $obj->force("install");
    $obj->uptodate 
        or die "Forced installation of $name appears to have failed";
}
else {
    $obj->install;
    $obj->uptodate 
        or die "Installation of $name appears to have failed";
}