RosettaCodeData/Task/Bitmap-Write-a-PPM-file/Perl/bitmap-write-a-ppm-file-2.pl

2 lines
56 B
Perl

$img->image_set_format("jpeg"); # or png, tiff, ppm ...