my $srcimage = GD::Image->newFromJpeg("churchmiddle.jpg") || print "GD::Image->newFromJpeg('churchmiddle.jpg') failed: $!<br>\n";