Names are important. Avoid reusing variables for different jobs and give each variable a meaningful name. Your code could be better written:
#!/usr/bin/perl -w
use strict;
use GD::Image;
use Image::Resize;
my $imagePath = '20191212_150024.jpg';
my $rawImage = Image::Resize->new($imagePath);
my $smallImage = $rawImage->resize(197, 262);
open my $outFH, '>', $imagePath or die "Can't create '$imagePath': $!"
+;
print $outFH $smallImage->jpeg();
close $outFH;
Note also the use of a lexical file handle ($outFH) and three parameter open with error checking. Lexical file handles help reduce weird bugs due to global file handle lifetimes. Three parameter open is much more robust against strange file names and error checking can save several debug iterations when files are not called what you expect or are not where you expect.
Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond