Copy the ttf font file you wish to use, to your script's working directory, and rename it Generic.ttf. You can even base64 encode the font, and write it out at the beginning of the script run. Also see IBM Developer's Work GD pie chart

#!/usr/bin/perl
use GD;
use strict;
use warnings;

my ($w, $h) = (200, 200);

my $img = GD::Image->new($w, $h);
my $white = $img->colorAllocate(255,255,255);
my $black = $img->colorAllocate(0,0,0);

$img->rectangle(10,10,20,20,$black);

$img->stringFT($black,"./Generic.ttf",72,0,100,100,'A');

open (IMG, ">$0.png");
print IMG $img->png;
close IMG;
[download]