file: potd.pl 30: my $image = Imager->new; 31: $image->read( file => $raw ); 32: my $scaled = $image->scale( xpixels => 800 ); 33: $scaled->write( file => $target_img );
Scale the image to 800 px width