#!/usr/local/bin/perl
use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use Imager;

my $img = Imager->new(xsize=>400,ysize=>300);
$img->box(filled=>1, color=>"ffffff"); #fill the background color

my $font = Imager::Font->new(
   file  => 'Copperplate.dfont',
   index => 0,
   color => '444444',
   size  => 30,
   aa    => 1);
   
$img->string(
   font=>$font,
   text=>'This is a test string',
   x=>20,
   y=>10);	
               
 $img->write(file=>"drawing.jpg", type=>"jpeg") or die "Cannot write file: ", Imager->errstr;