#!/usr/local/bin/perl
#       ↑あなたが加入しているプロバイダの｢perl｣言語が使用できる
#         パスを指定します。一般的に｢#!/usr/local/bin/perl｣で大丈夫


$fly = "./fly";
#==================================================================
$infile = "$$.tmp";
$outfile = "$$.gif";
open(FLY,"> $infile");
$gif_width = 160;
$gif_height = 32;
print FLY "new\n";
print FLY "size $gif_width, $gif_height\n";
print FLY "fill ",$gif_width / 2,",",$gif_height / 2,",255, 255, 192\n";
print FLY "line 0,0,$gif_width,0,250,250,250\n";
print FLY "line 0,0,0,$gif_height,250,250,250\n";
print FLY "line 1,1,",$gif_width - 1,",1,160,160,160\n";
print FLY "line 1,1,1,",$gif_height - 1,",160,160,160\n";
print FLY "line 2,2,",$gif_width - 2,",2,160,160,160\n";
print FLY "line 2,2,2,",$gif_height - 2,",160,160,160\n";
print FLY "line 3,3,",$gif_width - 3,",3,50,50,50\n";
print FLY "line 3,3,3,",$gif_height - 3,",50,50,50\n";
print FLY "line 0,",$gif_height-1,",",$gif_width-1,",",$gif_height-1,",50,50,50\n";
print FLY "line ",$gif_width-1,",0,",$gif_width-1,",",$gif_height-1,",50,50,50\n";
print FLY "line 1,",$gif_height-2,",",$gif_width-2,",",$gif_height-2,",160,160,160\n";
print FLY "line ",$gif_width-2,",1,",$gif_width-2,",",$gif_height-2,",160,160,160\n";
print FLY "line 2,",$gif_height-3,",",$gif_width-3,",",$gif_height-3,",160,160,160\n";
print FLY "line ",$gif_width-3,",2,",$gif_width-3,",",$gif_height-3,",160,160,160\n";
print FLY "line 3,",$gif_height-4,",",$gif_width-4,",",$gif_height-4,",250,250,250\n";
print FLY "line ",$gif_width-4,",3,",$gif_width-4,",",$gif_height-4,",250,250,250\n";
print FLY "string $tx_r, $tx_g, $tx_b,16,10,1,Try The HomePage\n";
close(FLY);

open(IMG,"| $fly -o $outfile -i $infile -q");
close(IMG);

print "Content-type: image/gif\n\n";
open(IMG,"$outfile");
	binmode(IMG);
	binmode(STDOUT);
	print $_ while (<IMG>);
close(IMG);

unlink($infile);
unlink($outfile);
exit;