Auf deine Frage habe ich keine Antwort, aber du könntest MIME::Type benutzen um den Mime-Typ auszulesen und dann einen ordentlichen Header ausgeben.