$> = eval "use Win32" || ! $@ ? Win32::IsAdminUser() ? 1 : 0 : $>;
# or something like that
$root = $> == 0 ? 1 : 0;