use GD;

# create a new image
    $im = new GD::Image(1000,1000);

# allocate some colors
    $white = $im->colorAllocate(255,255,255);
    $black = $im->colorAllocate(0,0,0);       
    $red = $im->colorAllocate(255,0,0);      
    $blue = $im->colorAllocate(0,0,255);

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

# Put a black frame around the picture
    $im->rectangle(0,0,99,99,$black);

# Draw a blue oval
    $im->arc(50,50,95,75,0,360,$blue);

# And fill it with red
    $im->fill(50,50,$red);

# rotated string
	$im->stringFT($black,'/windows/fonts/pala.ttf',40,47,500,500,
              "hi there\r\nbye now",
              {linespacing=>0.6,
               charmap  => 'Unicode',
              });
print $@;

# make sure we are writing to a binary stream
    binmode STDOUT;

# Convert the image to PNG and print it on standard output
    print $im->png;