view release on metacpan or  search on metacpan

ZooZ/icons/convert.pl  view on Meta::CPAN

#!perl -w

use strict;
use Image::Magick;

for my $f (<*.bmp>) {
    my $im = new Image::Magick;
    $im->Read($f);

    my $g = $f;
    $g =~ s/\.bmp/.gif/;
    $im->Write($g);
}