Help for this page

Select Code to Download

Select or download this

perl -MPOSIX=setuid -e '
  sub show { printf qq[%s: real: %d, effective: %d\n] , $_[0] , $< , $
+> }
...
  setuid( $id ) or die qq[cannot change to $id: $!];
  show( q[post-change] )
  '