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

use strict;
use FileHandle;
use lib '/mit/bert/PERL';
use Telnet;
%Telnet::Debug = ('connect' => 10, 'write' => 10, 'class' => 1, 'read' => 10,
		  'select' => 10);

open(STDERR, ">&STDOUT");

STDOUT->autoflush(1);

my($x) = new Telnet 'inf', 'finger';
$x->printf("%s%s" . CRLF, '/w ', 'bert');

while (! $x->eof) {
    defined($a = $x->getline(undef)) && print $a;
}