# set charset to the safe ISO-8859-1
    $self->charset('ISO-8859-1');

##</code><code>##

  print $query->header( -type=>'text/html',
                        -charset=>'EUC-JP');

##</code><code>##

  $webapp->header_props(-type=>'text/html', -charset=>'EUC-JP');

##</code><code>##

  $query->charset('EUC-JP');

##</code><code>##

  $webapp->header_type('none');