1 #!/usr/bin/perl
2 
3 print "gid = $(, egid = $), uid = $<, euid = $>\n";
4 
5 #GID
6 $(="1004 1004";
7 #EGID
8 $)="1004 1004";
9 #UID
10 $<=1004;
11 #EUID
12 $>=1004;
13 
14 print "gid = $(, egid = $), uid = $<, euid = $>\n";
15 my @results = getpwnam("jrmu");
16 print "for jrmu, uid = $results[2], gid = $results[3]\n";