sub rdw_open(*$;@)  # need a file handle and a name, but allow more for the 3 arg open...
{
	my $fh = shift;
	tie *{$fh}, __PACKAGE__, @_ ;
}