owner> cat setuid_program
#!/usr/bin/perl -wT

use POSIX;

my $uid  = getuid()  or die "Failed to determine user id.";
my $euid = geteuid() or die "Failed to determine effective user id.";

print "UID = $uid, EUID = $euid.\n";