use GD;

# Create a new image
$im = new GD::Image(200, 200);

$white = $im->colorAllocate(255,255,255);
$gray = $im->colorAllocate(0,0,0);


# Make the background transparent and interlaced
$im->transparent($white);
$im->interlaced('true');

$x1 = 20;
$y1 = 20;

# Draw text in a TTF font
$im->rectangle(0,0,199,199,$gray);
$font = "c:/Documents and Settings/uriel.avalos/My Documents/Scratchpad/nevis.ttf";
$im->stringFT($gray, $font, 12, 0, $x1, $y1, "A TTF font");


# Open a file for writing 
open(PICTURE, ">picture.png") or die("Cannot open file for writing");

# Make sure we are writing to a binary stream
binmode PICTURE;

# Convert the image to PNG and print it to the file PICTURE
print PICTURE $im->png;
close PICTURE;