use strict;
use warnings;
use POSIX;
my( $uid, $gid ) = qw/32767 32766/;
setgid( $gid ); $) = "$gid $gid"; $( = $gid; die "Set group ($gid): $!"
  if ( $( != $gid ) or ( $) != $gid );
setuid( $uid ); $> = $uid; $< = $uid; die "Set user ($uid): $!"
  if ( $< != $uid ) or ( $> != $uid );
print `id`;