#!/usr/athena/bin/perl
# #!/afs/athena/contrib/perl5/perl

require '/afs/athena/user/m/k/mkgray/perl/chat2.pl';

$hip = shift(@ARGV);

$fh = &chat'open_port($hip, 8010);
&chat'print("$ARGV[0]\n\n\n\n\n");
&chat'close($fh);
exit;
sub listen {
        local($secs) = @_;
        local($return,$tmp) = "";
        while (length($tmp = &chat'expect($secs, '(.|\n)+', '$&'))) {
                print $tmp if $trace;
                $return .= $tmp;
        }
	$return;
}