If I'm correct in guessing that you're asking where to put the header information to set the character set, change your line:

print $q->header();
[download]

to the following (untested):

print $q->header(-type    => 'text/html',
                 -charset => 'UTF-8'
                );
[download]

-rattus

__________
He seemed like such a nice guy to his neighbors / Kept to himself and never bothered them with favors
- Jefferson Airplane, "Assassin"