$root = eval "use Win32" || ! $@ ? Win32::IsAdminUser() ? 1 : 0 : $> == 0 ? 1 : 0;