Perl CGI: Dump POST(HTTP) body to a temporary file.

postdump.cgi

#!/usr/bin/perl
use strict;

my $postdata;
read(STDIN, $postdata, $ENV{'CONTENT_LENGTH'});
my $time = time();

open(FP, ">/var/tmp/post-${time}.dat");
print FP $postdata;
close(FP);

print "Content-type: text/plain\n\n";