#!/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;