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