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

my $user  = 'etl';
my $group = 'etl';
my $uid = getpwnam($user) || die "Cannot identify uid";
my $gid = getgrnam($group) || die "Cannot identify gid";

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

print "Changing Effective IDs\n";

$> = $uid;
$) = $gid;

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

##</code><code>##

Current Effective User ID: 500
Current Effective Group IDs: 500 500
Requested User ID: 502
Requested Group ID: 503
Changing Effective IDs
Current Effective User ID: 500
Current Effective Group IDs: 500 500

##</code><code>##

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