#!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",
);