Select Code to Download

Select or download this

   # png good, gif bad
   print img({-src    => 'http://myserver/image.png',
              -width  => '500',
...
              -alt    => 'My Image',
              -title  => 'This is my image',
              });

Select or download this

   use strict;
   use Image::Magick;
   my $image  = Image::Magick->new();
...
   $x         = $image->Write(filename  =>'image-th.png', 
                              quality   =>75);
   @$image    = ();