use strict;
use warnings;

use GD;

$SIG{__WARN__} = sub { print "Caught warning: ".$_[0] };

my $image;

eval {
	($image = GD::Image->new("test.jpg")) or warn "Error: ".$!;
};

if ($@) {
	print "Caught ".$@;
}

if (defined($image)) {
	print "Image is defined: ".$image."\n";
}

##</code><code>##

Corrupt JPEG data: 104 extraneous bytes before marker 0xd9
Image is defined: GD::Image=SCALAR(0x817eba4)