my $real = getpwuid($<);
my $effective = getpwuid($>);