#!C:/Strawberry/perl/bin/perl.exe -w
use warnings;
use Image::Thumbnail;
use CGI;
use CGI::Cookie;
use Time::HiRes qw(gettimeofday);
use CGI::Lite ();

my $query = CGI->new ;
$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 $file = $query->param("image");
print "Content-Type: text/html\n\n";

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