#! /usr/local/bin/perl print "Content-type: image/jpeg\n\n"; open(IMG1, "../../sample/img/img.jpg"); # 画像読み込み binmode(IMG1); # バイナリーモード print <IMG1>; # 画像表示 close(IMG1);