Okay, this one may be too easy, but hey, it has to be done:

#!/usr/bin/perl

use Net::Finger;

my ($gold) = "\033[1;33m";
my ($ger) = "\033[0m";

my ($fin) = finger($ARGV[0]);

print "$gold$fin$ger\n";
exit 0;
[download]

Spud Zeppelin * spud@spudzeppelin.com