Use the Clone method to make copies of the original.

my $picture = Image::Magick->new();
$picture->ReadImage("$image_filename");
my $copy = $picture->Clone();
[download]