Select Code to Download

#!/usr/bin/perl -T
use strict;
...

printf("Current Effective User ID: %s\n", $>);
printf("Current Effective Group IDs: %s\n", $));

Current Effective User ID: 500
Current Effective Group IDs: 500 500
...
Changing Effective IDs
Current Effective User ID: 500
Current Effective Group IDs: 500 500

Current Effective User ID: 0
Current Effective Group IDs: 0 0 1 2 3 4 6 10
...
Changing Effective IDs
Current Effective User ID: 502
Current Effective Group IDs: 0 0 1 2 3 4 6 10