use strict;
use GD;
use CGI;
use LWP::Simple qw(get);

my $image_web = get('http://www.funnyandjokes.com/pictures/images/bush_lord-of-the-rings.jpg');
$image = GD::Image->newFromJpegData($image_web);
my $black = $image->colorResolve(0,0,0);
$image->string(gdGiantFont,2,10,"Eat More Hobbits!",$black);
open(FILE, ">text1.jpg") || die "Cannot open text1.jpg: $!\n";
print FILE $image->jpeg;


##</code><code>##

 <img src="text1.jpg">