One more I just came up with:

# MIME Type as first line of document
# Document prints MIME type on first line of returned document
# I need to create a special tied filehandle to do this
select $special_fh;
$producer->foo(@args);
[download]

Seems counter-intuitive, though.