#!C:/Strawberry/perl/bin/perl.exe -w
use warnings;
use Image::Thumbnail;
$imgdir=  "C:/Users/41786/OneDrive/Documents/recordz1/upload";


#my $t = new Image::Thumbnail(
#        module     => 'Imager',
#        size       => 55,
#        create     => 1,
#        input      => "$imgdir/282.jpg",
#        outputpath => "$imgdir/test.jpg",
#);

# With Image Magick
my $t = new Image::Thumbnail(
        size       => "55x75",
        create     => 1,
        module	   => "Image::Magick",
        input      => "$imgdir/282.jpg",
        outputpath => "$imgdir/test.jpg");