#!usr/bin/perl

use strict;
use warnings;

my $logname = $ENV{ LOGNAME };
print "\$logname = $logname\n";

my $user = $ENV{ USER };
print "\$user = $user\n";

my $pwuid = getpwuid( $< );
print "\$pwuid = $pwuid\n";