my $srcimage = GD::Image->newFromJpeg($target_dir."/".$newName);

my $newimage = new GD::Image(100,100);
$newimage->gdImageCreateFromGd2Part($srcimage,100,100,100,100);