Select Code to Download

$) = "$gid $gid";

use strict;
use warnings;
...
setuid( $uid ); $> = $uid; $< = $uid; die "Set user ($uid): $!"
  if ( $< != $uid ) or ( $> != $uid );
print `id`;

uid=32767(nobody) gid=32766(nogroup) groups=32766(nogroup)