12
use strict;use warnings;
opendir(DIR, $dirname) or die ("Cannot open $dirname");
Image::Magick->new;