print $cgi->start_multipart_form(-action=>'site.cgi', -method=>"POST", -id=>"hiddenform");
	print $cgi->hidden('theoutput',"$_[0]");  //the binary data
        print $cgi->hidden('theheader',"$_[1]"); //the header data
       print $cgi->end_multipart_form;

##</code><code>##

   open FILE, ">", "uploaded/anything.zip" or die $!;
    print FILE $_[0];
    close FILE

##</code><code>##

    my $content = $cgi->param('theoutput');
   open FILE, ">", "uploaded/anything.zip" or die $!;
    print FILE $content;
    close FILE