my $root= eval { require Win32; 1 }
    ? Win32::IsAdminUser()
    : $> == 0;