Select Code to Download

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