Select Code to Download

$< = $id; # real uid
$> = $id; # effective uid
$< = $id; # real uid
$> = $id; # effective uid

sub switchUsers { my ($uname,$gname)=@_;
 eval('getgrnam(root);getpwnam(root);'); 
...
  }
 }
}