> > むヽ(´ー｀)ノむ
> じゃああれより洗練させてくれ(;´Д`)
> どこに無駄がある？

#!/usr/bin/perl
if ($ref = $ENV{'QUERY_STRING'};) {	if(!open(LOG,">>ref.txt"){print LOG "$ref\n";close(LOG);}};	print "Content-Type: image/gif\n\n";
foreach $img (71,73,70,56,57,97,1,0,1,0,145,255,0,255,255,255,0,0,0,192,192,192,0,0,0, 33,249, 4,1,0, 0,2,0,44,0,0,0,0,1,0,1,0,64,2,2,84,1, 0, 59)	{	$_ = pack('C1',  $img);	 print;	} ;	exit;

これでどうだヽ(´ー｀)ノ

参考：2002/01/22(火)19時06分25秒