use strict;
use GD::Simple;
use CGI;    
# create a new image
my $query = CGI->new();
print $query->header( -type => "image/png");
my $img = GD::Simple->new(1800,1550);

# built-in font
$img->moveTo(10,100);
$img->font('C:\WINNT\Fonts\Arial.ttf');

# Here this line dosen't work
#$img->font('C:\WINNT\Zemestrostd-bk.otf');

$img->fontsize(50);
$img->string('Hello World');
########################################    	    
print $img->png;