my @vals=(\@someArray,\%someHash);
      my $res=store(\@vals,"$path/$name");

##</code><code>##

  my @someArray = ();
  my %someHash = ();
  my $res=retrieve("$path/$name");
  if($res) {
    my ($tmp1, $tmp2) = @$res;
    if($tmp1) {
      @someArray = @$tmp1;
    }
    if($tmp2) {
      %someHash = %$tmp2;
    }
  }

##</code><code>##

WRITE(header, length);

##</code><code>##

WRITE( (unsigned char*) header, length);

##</code><code>##

#define WRITE(x,y) 							\
  STMT_START {								\
	if (!cxt->fio)							\
		MBUF_WRITE(x,y);					\
	else if (PerlIO_write(cxt->fio, x, y) != y)	\
		return -1;							\
  } STMT_END