Select Code to Download

Select or download this

#!/usr/bin/perl

...
($EUID, $EGID) = @temp;
print('$UID, $GID, $EUID, $EGID, $orig_UID, $orig_GID: '.$UID.", ".$GI
+D.", ".$EUID.", ".$EGID.", ".$orig_uid.", ".$orig_gid."\n");
print('@temp: '.$temp[0].", ".$temp[1]."\n\n");

Select or download this

$UID, $GID, $EUID, $EGID, $orig_UID, $orig_GID: 0, 0 0, 1015, 1001 0, 
+0, 0 0
@temp: 1015, 1001 0
...

$UID, $GID, $EUID, $EGID, $orig_UID, $orig_GID: 0, 0 0, 1015, 0 0, 0, 
+0 0
@temp: 1015, 1001 0

Select or download this
```
($EUID, $EGID) = @temp;
```
Select or download this
```
$EGID = $temp[1];
$EUID = $temp[0];
```

Select or download this

$UID, $GID, $EUID, $EGID, $orig_UID, $orig_GID: 0, 0 0, 1015, 1001 0, 
+0, 0 0
@temp: 1015, 1001 0
...

$UID, $GID, $EUID, $EGID, $orig_UID, $orig_GID: 0, 0 0, 1015, 1001 0, 
+0, 0 0
@temp: 1015, 1001 0