Code: Select all
use Image::Magick;
my $image;
my $x;
$image = Image::Magick->new;
$image->Read('logo');
$x = $image->Write('logo.jpg');
print $x;
Code: Select all
use Image::Magick;
my $image;
my $x;
$image = Image::Magick->new;
$image->Read('logo');
$x = $image->Write('logo.jpg');
print $x;