Select Code to Download

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

  my @someArray = ();
  my %someHash = ();
...
      %someHash = %$tmp2;
    }
  }

WRITE(header, length);

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

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