#!/usr/bin/perl 
$flyprog = "/usr/local/bin/fly -q"; 
$outfile = "tempfile.txt"; 
$tp = "0,255,255";
unlink($outfile);
open(FLY,">$outfile");
print FLY "new\n";
print FLY "size 100,100\n";
print FLY "fill 1,1,0,0,255\n"; 
print FLY "circle 32,32,32,0,0,0\n"; 
print FLY "circle 72,72,32,255,255,255\n"; 
print FLY "line 0,50,100,50,255,0,0\n"; 
print FLY "transparent $tp\n";
print FLY "interlace\n";
close(FLY); 
$output = `$flyprog -i $outfile`;
print "Content-type: image/gif\n\n";
print "$output";