"Fossies" - the Fresh Open Source Software Archive 
Member "fly-2.0.1/examples/perl/cgi-perl-example.pl" (25 Nov 2001, 782 Bytes) of package /linux/www/old/fly-2.0.1.tar.gz:
As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style:
standard) with prefixed line numbers and
code folding option.
Alternatively you can here
view or
download the uninterpreted source code file.
1 #!/usr/local/bin/perl
2
3 print "Content-type: image/gif\n\n";
4
5 $flyprog = "/usr/local/web/bin/fly";
6
7 $infile = "/tmp/fly.$$";
8
9 open(FLY,"> $infile");
10 print FLY "new\n";
11 print FLY "size 256,256\n";
12 print FLY "fill 1,1,255,255,255\n";
13 print FLY "arc 128,128,180,180,0,360,0,0,0\n";
14 print FLY "fill 128,128,255,255,0\n";
15 print FLY "arc 128,128,120,120,0,180,0,0,0\n";
16 print FLY "arc 96,96,10,10,0,360,0,0,0\n";
17 print FLY "arc 160,96,10,10,0,360,0,0,0\n";
18 print FLY "fill 96,96,0,0,0\n";
19 print FLY "fill 160,96,0,0,0\n";
20 print FLY "string 0,0,0,10,240,giant,Hello, World!\n";
21 print FLY "string 0,0,0,100,10,medium,Don't worry, be Happy!\n";
22
23 close(FLY);
24
25 open(FOO,"$flyprog -q -i $infile |");
26 while( <FOO> ) {print;}
27 close(FOO);
28
29 unlink($infile);
30
31 exit(0);