#!/usr/local/bin/perl
 
print "euid is: $>\n";
print "egid is: $)\n";
print "ruid is: $<\n";
print "rgid is: $(\n";
#== end script