Consider this fragment:

$r->content_type("image/$type");
$r->send_http_header;

$m->print($img);

The method send_http_header seems to no longer exist. What should I be using instead? For now I just commented it out.