foreach (@image){
my $image=Image::Magick->new();
$image->Read($_);
$image->Write(substr($image->Get('filename'), 0, length($image->Get('filename'))-4).".gif");
}