perl GD, функция stringFT, шрефты!

есть семпл кода по использованию TTF шрифтов с библиотекой GD.

Вот:

#!/usr/local/bin/perl

sub InitColors {
my($im) = $_[0];
# ########### ######
#
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);
$green = $im->colorAllocate(0, 255, 0);
$brown = $im->colorAllocate(255, 0x99, 0);
$violet = $im->colorAllocate(255, 0, 255);
$yellow = $im->colorAllocate(255, 255, 0);
}

use GD;


# Создаем изображение

$im = new GD::Image(270, 80);

# Назначаем цвета
&InitColors($im);

# Делаем фон прозрачным и interlaced

$im->transparent($white);
$im->interlaced('true');

$im->rectangle(0, 0, 269, 79, $black);


$x1 = 10;
$y1 = 20;

# Рисуем текст TTF шрифтом
$font = "arial.ttf";

$im->stringFT($red, $font, 15, 0, $x1, $y1, "A TTF font");


# Открываем файл на запись
open(PICTURE, ">picture.png") or die("Cannot open file for writing");

# Включаем двоичный режим
binmode PICTURE;


# Конвертируем изображение в PNG и выводим в файл
print PICTURE $im->png;
close PICTURE;




после выполнения скрипта появляется файл picture.png, открываем его, а там пусто."A TTF font" нету. arial.ttf находится в той же папке где и скрипт. Что ему не хватает?