sub g1 { getpwnam(@_) }
sub g2 { getpwnam($_[0]) }

print "g1: ", g1("root"), "\n";
print "g2: ", g2("root"), "\n";