view release on metacpan or  search on metacpan

devel/icons.pl  view on Meta::CPAN

  # ### $ret

  # $im->Set(magick => 'xbm');
  # # $im->Set(-compress => 'none');
  # $im->Write('/tmp/x.xbm');
  # system('cat /tmp/x.xbm');
  exit 0;
}

{
  require Image::Pngslimmer;
  open my $fh, '<', '/usr/share/icons/hicolor/48x48/apps/emacs.png' or die;
  my $bytes = do { local $/; <$fh> }; # slurp
  close $fh or die;
  ### before: length($bytes)
  $bytes = Image::Pngslimmer::zlibshrink($bytes);
  ### after: length($bytes)
  exit 0;
}


my $ua = LWP::UserAgent->new;
{
  my $self = bless({verbose=>2},'main');
  #my $url = 'file:///usr/share/emacs/22.3/etc/images/icons/emacs_32.png';
  # my $url = 'file:///tmp/x.jpg';