#!D:\perl\bin

$flyprog = "D:\\fly\\fly.exe";

print "Content-type: image/png\n\n";
binmode(STDOUT);

open(FLY,"| $flyprog -q ");
print FLY "new\n";
print FLY "size 256,256\n";
print FLY "type png\n";
print FLY "fill 1,1,255,255,255\n";
print FLY "circle 128,128,180,0,0,0\n";
print FLY "fill 128,128,255,255,0\n";
print FLY "arc 128,128,120,120,0,180,0,0,0\n";
print FLY "circle 96,96,10,0,0,0\n";
print FLY "circle 160,96,10,0,0,0\n";
print FLY "fill 96,96,0,0,0\n";
print FLY "fill 160,96,0,0,0\n";
close(FLY);