local *STDIN;
open STDIN, '<',  $r->request_body_file or die $!;
binmode STDIN;
my $q = CGI->new( \*STDIN );