Hello guys I have this code from manual, crawled perlmonks for 1 hour and getting back to same thing, the only think can be wrong is incompability

#!/usr/local/bin/perl

use GD;

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

# 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);

$im->stringTTF($black,"test.ttf", 12, 0, 0, 0,"Font Reactor") or die $
+!;

open(IMAGE, ">test.png") or die;
binmode IMAGE;
print IMAGE $im->png;
[download]

Can any1 plz help, thnx a advance