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
In Section
Perl Poetry