this is the code
open FILE, ">>$file"; #ﾌｧｲﾙへの書き込み
#flock (FILE, 2);
print (FILE "\"", $tizu);
print (FILE "\"\,\"", $ido);
print (FILE "\"\,\"", $keido);
print (FILE "\"\,\"", $jikan);
print (FILE "\"\,\"", $tate);
print (FILE "\"\,\"", $yoko);
print (FILE "\"\,\"", $wariai);
print (FILE "\"\n");
#flock (FILE, 8);
close FILE;
$view = "${tizu}.jpg";
print "Content-type: image/jpeg\n\n"; #HTMLファイルや画像ファイルは、サーバからデータを送信する際に情*の種類を示す(ﾌﾞﾗｳｻﾞに返すﾚｽﾎﾟﾝｽの形式を指定)
open(IMG, "$view");
binmode (IMG);
binmode STDOUT;
print <IMG>;
$a = '1.gif';
print "Content-type: image/gif\n\n";
open(IMG, "$a");
binmode (IMG);
binmode STDOUT;
print <IMG>; #
close(IMG);
exit;
thank you for your help
