#!/afs/athena/contrib/perl/perl

print "EUID: $>\n";
print "EGID: $)\n";
print "RUID: $<\n";
print "RGID: $(\n";