#! perl -slw
use strict;
use GD;

my $testline="qwerty";

my $jpg="test.jpg";

my $im = GD::Image->new( $jpg ) or die $!;

my $mycolor = $im->colorClosest(255,0,0);

$im->string(gdSmallFont,135, -2,$testline,$mycolor);

my $pic_dyn="test2.jpg";

open IMG,">$pic_dyn" or die $!;

binmode IMG;

print IMG $im->jpeg;

close IMG;