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); }