use strict;
use Image::Magick;

# Define $image
my $image=Image::Magick->new;

# Define the image you want to convert
my $new_image = $image->Read('image.png');

# Set grayscale
$image->Quantize(colorspace=>'gray');

# Write the new file
$new_image = $image->Write('new_image.png');