#!/afs/athena/contrib/perl5/p -w

use strict;
use FileHandle;
use lib '/mit/bert/PERL';
use Telnet;

my($long) = '';

 ARG:
    for (@ARGV) {
	($_ eq '-l') && ($long = '/w ', next ARG);

	/@([^@]+)$/ || die "Invalid finger destination: '$_'";
	my ($query, $host) = ($`, $1);

	print "[$host]\n";
	my($t, $a) = new Telnet $host, 'finger';
	$t->printf("%s%s" . CRLF, '/w ', $query);

	while (! $t->eof) {
	    defined($a = $t->getline(undef)) && ($a =~ s/\015//g, print $a);
	}
    }