#!/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;
   }