#-------------------------------------------------------
sub tag_taille_image {
   local ($_)=@_;
   my ($buffer, $width, $height, $retour);
   $buffer="";

   open (FILE, "$_") || return "";
   binmode FILE;
   $retour = "";

   if (/\.gif$/i)
      {
      if (read(FILE,$buffer,10))
         {
	 close FILE;
      	 ($width, $height)=unpack("x6v2",$buffer);
	 $retour = "width=$width height=$height"
         }
      }
   elsif (/\.jpg/i)
      {
      local($/)="\xff\xc0";
      if ( ($_=<FILE>) && (read(FILE,$buffer,7)) )
         {
	 close FILE;
         ($height, $width)=unpack("x3n2",$buffer);
         $retour = "width=$width height=$height"
         }
      }
   return $retour;
}
#-------------------------------------------------------