my $install_html = eval { require ActivePerl::DocTools; };
    $install_html = $args{install_html} if defined $args{install_html};

##</code><code>##

            $ppm->install(
                area => $INSTALL_AREA,
                packages => \@install_pkgs,
                run_cb => \&run_cmd,
            );

##</code><code>##

            $ppm->install(
                area => $INSTALL_AREA,
                packages => \@install_pkgs,
                run_cb => \&run_cmd,
                ( exists($ENV{INSTALL_HTML})
                    ? ( install_html => $ENV{INSTALL_HTML} )
                    : ()
                ),
            );

##</code><code>##

perl -i.bak -ple"s/\$ppm->install\(\K/exists(\$ENV{INSTALL_HTML}) ? ( install_html => \$ENV{INSTALL_HTML} ) : ()," c:\progs\perl5100\lib\ActivePerl\PPM\GUI.pm