#!/usr/bin/perl
# fingerd - a simple finger daemon
$user = <STDIN>;
chop($user);
chop($user);
if(-e "/usr/lib/finger/$user"){
    system "/usr/bin/perl /usr/lib/finger/$user";  
} else {
    system "/usr/bin/perl /usr/lib/finger/default $user";
}



