I want to thank everyone for their help.
I succeeded in making a test script.
For those who care:
#!/usr/local/bin/perl -w
# just about all pulled directly from the POD
# My problem was ttf support in libgd!!!
# Yeah, I know - RTFM!!!!
# Simple image creation script - hopefully
use GD;
use CGI qw(:standard);
# create a new image
$im = new GD::Image(400, 200);
$query = new CGI;
# 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);
# make the background transparent and interlaced
$im->transparent($white);
$im->interlaced('true');
# Put a black frame around the picture
$im->rectangle(0,0,399,199, $black);
# Let's try a character and or string
$im->string(gdSmallFont, 150, 100, "Text Test", $blue);
$im->stringTTF($black,"/home/httpd/html/ribbon.ttf", 12, 0, 180, 120,
+"Testing the ribbon font");
if ($@) {
$im->string(gdSmallFont, 50, 150, "$@", $black);
}
#make sure we are writing to a binary stream
binmode STDOUT;
print $query->header(-type=>'image/png');
# print the image
print $im->png;
This time it worked like a charm!! Thanks all
What does this little button do . .<Click>;
"USER HAS SIGNED OFF FOR THE DAY" |