Select Code to Download

use strict;
use GD;
...
my $encoded = join "", <FILE>;
close FILE;
my $im = GD::Image->newFromJpegData($encoded);

use strict;
use GD;
...
my $jpegdat;
read JPG, $jpegdat, -s JPG;
my $im = GD::Image->newFromJpegData($jpegdat);