if (Win32::IsWinNT() && Win32::IsAdminUser()) {
    # XXX This could be done on Win9X by direct registry hacking
    print "\n";
    $create_file_association = yes("Create Perl file extension association?", 1);

    print "\n";
    $create_perl_mapping = yes("Create IIS script mapping for Perl?", 1);

    print "\n";
    $create_isapi_mapping = yes("Create IIS script mapping for Perl ISAPI?", 1);
}


##</code><code>##

sub create_file_association
{
    # Don't leave a space between 'Perl' and '>nul'.
    # See http://bugs.activestate.com/show_bug.cgi?id=68656
    system("assoc .pl=Perl>nul") == 0
	or warn "Could not create .pl file type association\n";
    system(qq(ftype Perl="$perl" "%1" %* >nul)) == 0
	or warn "Could not define command to run .pl files\n";
}