file: potd_handle_image.pl 22: my $scaled = $image->scale( xpixels => 800 ); 23: $scaled->write( file => $target );
and write out the new image to the correct location