#!/usr/local/bin/perl -T

undef %ENV; # Keep -T from complaining about an insecure $ENV{PATH}.

print "Give me a local user name: ";
$foo = <>;
chop $foo;
system(`/usr/bin/finger $foo`);