file: potd_handle_image.pl 22: my $scaled = $image->scale( xpixels => 800 ); 23: $scaled->write( file => $target );
scale the image to 800 pixel width