my $im = GD::Image->new(100,100);
$im->string(gdSmallFont,2,10,"Peachy Keen",$color);
binmode STDOUT;
print $im->png;