#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

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

my $filename = "test.pdf";

$image->Read($filename);
$image->Set(scene=>15);
$image->Write(filename=>"testp%04d.tif",
              compression=>'Group4',
              density=>"240x240");