#!/usr/bin/perl

$cmd = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$cmd);

foreach $pair (@pairs) {
    ($name,$value) = split(/=/,$pair);
    $FORM{$name} = $value;
}

if($FORM{'red'} eq ''){
    $FORM{'red'} = '00';
}
if($FORM{'blue'} eq ''){
    $FORM{'blue'} = '00';
}
if($FORM{'green'} eq ''){
    $FORM{'green'} = '00';
}

@array = (
	  "47","49","46","38","39","61","01","00","01","00","b3","ff","00","$FORM{'red'} ","$FORM{'green'}","$FORM{'blue'}",
	  "00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00",
	  "00","00","00","00","00","c0","c0","c0","00","00","00","00","00","00","00","00",
	  "00","00","00","00","00","00","00","00","00","00","00","00","00","2c","00","00",
	  "00","00","01","00","01","00","00","04","02","10","44","00","3b","00","00","04",
	  "02","30","44","00","3b"
	  );

print "Content-type: image/gif\n\n";
foreach(@array){
    $data = pack('c*', hex($_));
    print $data;
}

exit;