#!/opt/bin/perl -w
use strict;
use CGI ':standard';
use GD;

my $image = GD::Image->newFromJpegData("http://www.funnyandjokes.com/pictures/images/bush_lord-of-the-rings.jpg");
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;