8 GD::Image->trueColor(1);
9 my $img = new GD::Image(100,100);
11 my $wht = $img->colorResolve(0,0,0);
12 my $blk = $img->colorResolve(255,255,255);
13 my $red = $img->colorResolve(255,0,0);
14 my $grn = $img->colorResolve(0,255,0);
15 my $blu = $img->colorResolve(0,0,255);
17 $img->transparent($wht);
18 $img->interlaced('true');
20 $img->string(gdMediumBoldFont,0,0,"TG05 - Streaming",$blu);
22 print $cgi->header(-type=>'image/png',
23 -refresh=>'10; http://nms.tg07.gathering.org/streaming.pl');