#!/usr/bin/perl
# $Id: gamma_handler,v 1.1.1.1 2005/08/12 16:41:16 dodell Exp $
# Copyright 2001 Sun Microsystems, Inc.  All rights reserved.

$| = 1;

while(<>)
{
	print STDERR $_;
	if (/^200 READY/)
	{
		last;
	}
}

print STDERR "BADDATA 0 gamma bar\n";
print "BADDATA 0 gamma bar\n";

print STDERR "BYE FAIL\n";
print "BYE FAIL\n";

while (<>)
{
	print STDERR $_;
}