#!/usr/bin/perl
# Show how to display a user's real name

@passwd = getpwuid($<);
print "$passwd[0] = $passwd[6]";
print "\n";