$surface->write_to_png_stream (sub {
    my ($closure, $data) = @_;
    $loader->write($data);
  });