#!/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", $));