> formats to jpg.

     my($name) = shift;
     my($img) = Image::Magick->new;
       if (!($name =~ /.jpg|.JPG/)){

        open(IMAGE, $name); # Open the original file

        $rc = $img->Read(file=>\*IMAGE);    # Read the file


##</code><code>##

           $rc = $mig->Read(filename=>$name);