$image = GD::Image->new($filename);

##</code><code>##

$image->string($font,$x,$y,$string,$color);

##</code><code>##

$png_data = $image->png;
open (OUTFILE,"imagewithtext.png");
binmode OUTFILE;
print OUTFILE $png_data;
close OUTFILE;