#!/usr/bin/perl -w
use GD;
use strict;

my $im = new GD::Image(569,45) or die "new: $!";
my ($white,$blue) = (
  $im->colorAllocate(255, 255, 255),
  $im->colorAllocate(114, 126, 170)
) or die "colors";
$im->stringFT($blue, "/home/development/archivesystem/ARLRDBD.TTF", 12.0, 0.0, 0, 0, "kokomo") or die "writing: $!";
binmode STDOUT or die "binmode: $1";
print $im->png or die "no png :o";