print $q->header(
  -type    => 'text/plain',
  -charset => 'UTF-8',  
);