my $pal = $source->to_paletted
  (
   max_colors => 16,
   translate => "errdiff",
  ) or die $source->errstr;
$pal->write(file => "foo.png")
  or die $pal->errstr;