Select Code to Download

if (Win32::IsWinNT() && Win32::IsAdminUser()) {
    # XXX This could be done on Win9X by direct registry hacking
    print "\n";
...
    $create_isapi_mapping = yes("Create IIS script mapping for Perl IS
+API?", 1);
}

sub create_file_association
{
...
    system(qq(ftype Perl="$perl" "%1" %* >nul)) == 0
    or warn "Could not define command to run .pl files\n";
}