#!/usr/bin/perl
use GD;
use CGI;
use strict;

my $cgi = CGI->new;

GD::Image->trueColor(1);
my $img = new GD::Image(100,100);

my $wht = $img->colorResolve(0,0,0);
my $blk = $img->colorResolve(255,255,255);
my $red = $img->colorResolve(255,0,0);
my $grn = $img->colorResolve(0,255,0);
my $blu = $img->colorResolve(0,0,255);

$img->transparent($wht);
$img->interlaced('true');

$img->string(gdMediumBoldFont,0,0,"TG05 - Streaming",$blu);

print $cgi->header(-type=>'image/png',
                   -refresh=>'10; http://nms.tg05.gathering.org/streaming.pl');
print $img->png;

