#! /usr/bin/perl -w
use strict;
use GD::Simple;

# Create a new image
 my $pen = GD::Simple->new(210,200);
 $pen->penSize(3,3);

# Draw DNA:
 $pen->fgcolor('black');
 $pen->moveTo(30,125);
 $pen->lineTo(200,125);

# Draw gene
 $pen->bgcolor('red');
 $pen->rectangle(150,115,190,135);

# Draw BS
 $pen->bgcolor(undef);
 $pen->fgcolor('blue');
 $pen->rectangle(65,122,95,128);

# Draw TF
 $pen->bgcolor('green');
 $pen->fgcolor('black');
 $pen->moveTo(80,100);
 $pen->ellipse(50,40);

# Add some titles
 $pen->moveTo(160,100);
 $pen->string('YFG');
 $pen->moveTo(75,70);
 $pen->string('TF');
 
# convert into png data

 print $pen->png;