Select Code to Download

use strict;
use warnings;
...
binmode $f;

print $f $dest->jpeg(80);

my $dest = GD::Image->new($destw, $desth);
$dest->copyResampled($src,0,0,0,0,$destw+1,$desth+1,$srcw,$srch);