use GD;
use Image::GD::Thumbnail;

# Load your source image
open IN, 'E:/Images/test.jpg'  or die "Could not open.";
my $srcImage = GD::Image->newFromJpeg(*IN);
close IN;

# Create the thumbnail from it, where the biggest side is 50 px
my ($thumb,$x,$y) = Image::GD::Thumbnail::create($srcImage,50);

# Save your thumbnail
open OUT, ">E:/Images/thumb_test.jpg" or die "Could not save ";
binmode OUT;
print OUT $thumb->jpeg;
close OUT;