#!/usr/local/bin/perl

print "Give me a local user name: ";
$foo = <>;
chop $foo;
# WARNING: Never pass user data to a shell            
           like this system(`/usr/bin/finger $foo`);