Can't locate object method "new" via package "Image::Magik" (perhaps you forgot
        to load "Image::Magik"?) at make_thumbnail.pl line 22 (#1)
    (F) You said to do (or require, or use) a file that couldn't be
    found. Perl looks for the file in all the locations mentioned in @INC,
    unless the file name included the full path to the file.  Perhaps you
    need to set the PERL5LIB or PERL5OPT environment variable to say where
    the extra library is, or maybe the script needs to add the library name
    to @INC.  Or maybe you just misspelled the name of the file.  See
    perlfunc/require and lib.
    
Uncaught exception from user code:
        Can't locate object method "new" via package "Image::Magik" (perhaps you forgot to load "Image::Magik"?) at make_thumbnail.pl line 22.


##</code><code>##

#!/usr/bin/perl -w

use strict;
use diagnostics;
use Image::Magick;
use Getopt::Long;
use File::Basename;

my $out_dir = 'icons';
my $geometry= '120x120';
my $img = 'ezwindow.gif';
GetOptions(
'geometry=s'  => \$geometry,
'directory=s' => \$out_dir,
);

mkdir $out_dir, 0777 or die "Cannot create $out_dir: $!" unless -d $out_dir;

foreach my $img (@ARGV)
{
   my $rc;
  LINE 22------- >>>>my $im = Image::Magik->new();
   $rc = $im->Read($img);
   warn($rc), next if $rc;
   my $basename = basename $img;
   $basename =~ s/\.\w+$//;
   $rc = $im->Write("PNG:$out_dir/$basename.png");
   warn($rc) if $rc;
   }