sub WRITE { 
	warn Dumper(["WRITE",@_]); 
	1;
}
sub PRINT { 
	my($obj, @arg) = @_;
	print { $$obj{"handle"} } @arg;
}
sub PRINTF { 
	my($obj, $arg, @arg) = @_;
	printf { $$obj{"handle"} } $arg, @arg;
}
for my $m (qw"READ READLINE GETC EOF SEEK TELL") {
	my $mm = $m;
	my $p = sub {
		die "error: $mm unimplemented for Tie::Handle::CloseAppend handle";
	};
	{ no strict "refs"; *$m = $p; }
}
sub BINMODE { 
	my($obj, $arg) = @_;
	binmode $$obj{"handle"}, $arg;
}
sub FILENO { 
	my($obj) = @_;
	fileno($$obj{"handle"});
}