getpwuid perl function

From: Ellen Davis <daviser_at_email.uc.edu>
Date: Fri, 11 Jul 1997 09:46:00 -0400

I'm stumped. Can anyone tell me why this piece of perl code does not set
any variables except OZlogin?

*************code ********************
#!/usr/local/bin/perl

($OZlogin,$pass,$uid,$OZgid,$quota,$comment,$gcos,$OZdir,$shell) =
getpwuid( $<)
 || die "Who are you?\n";

print "OZlogin=", $OZlogin, " OZdir=", $OZdir , " OZgid=", $OZgid, "\n";
************************************************************************

Here is the output when runnin on my system (AlphaServer 1000A running
DU4.0B and Perl 5.003):

OZlogin=daviser OZdir= OZgid=



 Ellen Davis
 Ellen.Davis_at_uc.edu
Received on Fri Jul 11 1997 - 15:55:12 NZST