#!/usr/local/bin/perl binmode (STDIN); read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @data = split (/\x0d\x0a\x0d\x0a/, $buffer); ($fileend, $delete) = split (/\x0d\x0a\x2d\x2d/, $data[$#data]); $buffer = ''; for ($i = 1; $i < $#data; $i++) { $buffer = "$buffer$data[$i]"; } $buffer = "$buffer$fileend"; open (OUT, ">bintrans.bin"); binmode (OUT); print OUT "$buffer"; close (OUT); print "Content-Type: text/html\n\n"; print "Upload Finished."; exit(0);