#!/usr/bin/perl -w

use strict;
use GD::Image;
use Image::Resize;

my $image = Image::Resize->new('20191212_150024.jpg');
$image = $image->resize(197,262);

open(FH, '>'.$image);
print FH $image->jpeg();
close(FH);

# Result of running this code: Died at /usr/local/share/perl/5.26.1/Image/Resize.pm line 25.


#original code below and it works from CPAN
$image = Image::Resize->new("large.jpg");
$gd = $image->resize(120, 120);
 
open(FH, '>thumbnail.jpg');
print FH $gd->jpeg();
close(FH);