#!/usr/bin/perl -w
use _p::CGI::Carp qw(fatalsToBrowser);
use _p::CGI::Debug(report 	=>	"everything",on  =>	"fatals",to => { browser =>	0,});#ブラウザにエラーを表示す
print "Content-type: text/html  \n\n";


use CGI;
my $query = new CGI;
my $formData = $query->param('formData');
my $file_data="";
my $bytesread="";
my $buffer="";
while($bytesread = read($formData, $buffer, 2048)) {
	$file_data .= $buffer;
}


my $f = "./testajx.jpg";
open IN, '>', $f or die "Error" ;
binmode IN;
print IN $file_data;
close IN;


print "testajx.jpg で書き出しました。戻って再読込してください";