in reply to The Perl Film Festival

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;

Spud Zeppelin * spud@spudzeppelin.com