print "Real Group:      $(\n";
print "Effective Group: $)\n";
print "Real User:       $<\n";
print "Effective User:  $>\n";
print "Taint? ${^TAINT}\n";