# Try Windows first.
my $root = eval {
  require Win32;
  Win32::IsAdminUser();
};
# If that didn't work, try Unix.
$root = $> == 0 if $@;