###############################################################
# girl.cgi
print "Content-type: image/JPEG\n";
print "\n";

#---------------------------------------------------
# 初期処理
#---------------------------------------------------
use GD;
binmode STDOUT;

#---------------------------------------------------
# 主処理
#---------------------------------------------------
$image = GD::Image->newFromJpeg("girl.jpg");

print $image->jpeg(100);

###############################################################
# girl2.cgi
print "Content-type: image/JPEG\n";
print "\n";

#---------------------------------------------------
# 初期処理
#---------------------------------------------------
use GD;
binmode STDOUT;

#---------------------------------------------------
# 主処理
#---------------------------------------------------
$image = GD::Image->newFromJpeg("girl.jpg");

$red = $image->colorResolve(255,0,0);
$image->filledRectangle(100,130,200,160,$red);

print $image->jpeg(100);

###############################################################
# girl3.cgi
print "Content-type: image/JPEG\n";
print "\n";

#---------------------------------------------------
# 初期処理
#---------------------------------------------------
use GD;

#---------------------------------------------------
# 主処理
#---------------------------------------------------
$image = GD::Image->newFromJpeg("girl.jpg");

$red = $image->colorResolve(255,0,0);
$image->filledRectangle(100,130,200,160,$red);

open( OUTFILE, ">", "girlout.jpg" );
binmode OUTFILE;
print OUTFILE $image->jpeg(100);
close( OUTFILE )